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NOTICES 


Disclaimers 

The  findings  in  this  report  are  not  to  be  construed  as  an 
offi  cial  Department  of  the  Army  position,  unless  so  desig¬ 
nated  by  other  authorized  documents. 

The  citation  of  trade  names  and  names  of  manufacturers  in 
this  report  is  not  to  be  construed  as  official  Government 
indorsement  or  approval  of  commercial  products  or  services 
referenced  herein. 


Disposition 

Destroy  this  report  when  it  is  no  longer  needed.  Do  not 
return  it  to  the  originator. 


ABSTRACT 


This  report  describes  the  continuing  development  of  preprocessing, 
character-classification,  and  context-analysis  techniques  for  hand¬ 
printed  text,  such  as  computer  coding  sheets  in  the  FORTRAN  language. 

We  discuss  preprocessing  operations  developed  to  find  topological 
features  such  as  the  perimeter,  the  convex  hull,  concavities,  enclosures, 
and  spurs  of  a  black/white  quantized  figure.  We  describe  the  picsent 
status  of  a  program,  TGPO  2,  which  classifies  characters  on  the  basis  of 
these  and  other  topological  features.  Finally,  w»  detail  the  component 
functions  of  the  LISP  program  developed  to  perform  FORTRAN  syntax 
analysis  on  a  statement-bystateiuent  basis. 
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I  INTRODUCTION 


This  report  describes  the  continuing  development  of  preprocessing, 
character-classification,  nnd  context-analysis  techniques  for  hand¬ 
printed  text.  The  particular  subject  matter  of  our  investigation  is 
hand-printed  FORTRAN  text  on  standard  computer  coding  sheets,  with  a 
46-charac ter  alphabet.  The  reader  is  referred  to  the  previous  reports 
of  this  project  for  background  nnd  supplementary  niuterial. 

In  Sec.  II  of  this  report  wo  resume  the  discussion  of  topological 
preprocessing  operations  that  was  begun  in  the  Fourth  Quarterly  Report. 
We  discuss  procedures  for  finding  the  perimeter  of  a  black/white  quan¬ 
tized  figure,  its  convex  hull,  its  concavities,  its  enclosures  and  its 
spurs. 

Section  III  describes  the  current  status  of  the  TOPO  2  program, 
which  embodies  the  above-mentioned  preprocessing  operations  and  performs 
subsequent  character  classification  through  hand-coded  evaluation  func¬ 
tions.  We  also  discuss  the  forthcoming  use  of  the  topological  Coutures 
from  TOPO  2  as  input  to  a  learning  machine, 

The  context-analysis  phase  of  our  effort  is  currently  concentrated 
on  analysis  of  individual  statements,  using  the  syntax  of  the  FORTRAN 
language.  In  Sec.  IV,  we  enumerate  and  briefly  describe  the  action  of 
numerous  functions  contained  in  the  LISP  program  being  developed  for 
the  syntax  analysis. 
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II  TOPOLOGICAL  PREPROCESSING  OPERATIONS  FOR 
RECOGNITION  OF  HAND-PRINTED  CHARACTERS 

A .  In trod not Ion 

We  resume  here  the  discussion  of  topological  preprocessing  opera¬ 
tions  that  was  begun  in  the  Fourth  Quarterly  Report.  In  that  report, 
we  introduced  u  number  of  operations  to  be  performed  on  an  image  in  a 
quantized  visual  field.  Wo  also  described  programs  written  for  the  SDS 
910  computer  to  perform  these  operations  on  a  2-1  X  24  bit,  black/white 
quantized  field: 

Operation  Programs 

Finding  extent  of  figure(s)  in  EXTENT 

field 

Finding  connected  subflguros  CONNJ,  CONNH 

Crowing  and  shrinking  figures  GROW,  SHRINK 

Dissecting  a  figure  into  connected  DISIM8 
subf igurcs 

Boolean  operations  performed  in  ANDFIC,  ORFIG,  XORPIG,  DIFFIG, 

parallel  on  the  elements  of  CMPFIG 

visual  fields 

Translation  of  a  field  RSHFIG,  LSIiFIG,  USHFIC,  DSHFIG  . 

(A  recent  addition  to  this  list  is  the  program  PIVOT,  which  pivots  a 
24  x  24  field  about  its  main  diagonal.) 

The  following  terminology  Is  used  tu  tills  ii.s<unslun:  An  object 
in  the  visual  field  is  I  mil— cornier  t  od  If  any  point  in  t  lie  object  can 
be  reached  from  any  oilier  point  in  I  he  object  by  a  path  of  uni  t  steps 
in  the  four  major  directions  (up,  clown,  left,  right)  lying  entirely 
within  (lie  object.  An  object  Is  ei  gilt  -i  ounce  ted  under  a  similar  defini¬ 
tion,  bill  with  the  path  allowed  (■>  include  steps  in  the  lour  diagonal 
directions  as  well.  J  is  the  verllcul  coordinate  in  the  visual  field, 
running  from  1  at  the  lop  to  24  at  the  bottom;  K  runs  from  1  at  the 
1  el't  t  o  2*1  a  t  l  lie  )■  i  ght  . 


B.  Contour  Following  (The  Perimeter  and  th«  Shell; 

A  well-known  result  of  recreational  mathematics  states  that  If  one 
traces  a  finite  two-dimensional  maze,  keeping  the  wall  always  at  the 
right  (or  left)  hand,  he  will  eventually  return  to  his  starting  point. 

If  the  starting  point  is  on  the  outside  of  a  connected  figure,  the  con¬ 
tour  that  is  traced  is  the  outer  boundary  of  the  figure. 

The  contour-following  operation,  like  that  of  J'indi  tg  connected 
subfigures,  is  a  fundamental  preprocessing  operation  and  forms  part  of 
the  basis  for  other  operations  to  be  described  subsequently.  A  hard¬ 
ware  implementation  of  the  contour-following  process,  using  a  evcloidaily 
looping  flying  spot  to  trace  the  character  contour,  has  been  used  success¬ 
fully  at  IBM  Corporation  in  a  doviec  to  read  hand-printed  numerals. 1 

When  dealing  with  quantized  images  on  a  raster  of  points,  the  con¬ 
tour  follower  l akes  the  form  of  a  routine  that  steps  from  point  to  point 
along  tho  edge  of  the  figure,  The  natural  output  of  the  routine  is  thus 
an  ordered  list  of  coordinate  pairs,  rather  than  an  image.  The  list  may 
ho  condensed  into  an  image  containing  those  points  in  tho  list,  but  for 
some  uses  tho  ordering  contained  in  the  list  Is  important, 

We  choose  to  begin  the  contour-following  operation  at  a  particular 
locution  on  tho  figure,  namely,  tho  leftmost  point  of  tho  figure  on  the 
2<1  X  2d  raster  (and,  in  tho  case  of  ties,  the  bottommost  of  these 
points),  Tho  contour  is  followed  in  a  clockwise  direction.  This  fixed 
procedure  assures  us  of  finding  a  starting  point  on  the  boundary  of  the 
figure,  and  also  makes  possible  some  shortcuts  in  later  processing.  If 
lie  figure  is  not  connected,  only  that  connected  component  containing 
the  starting  point  will  be  traced. 

In  u  quantized  image,  the  (imaginary)  Boundary  wall  may  be  thought 
of  is  running  between  the  oulintiosl  figure  points  and  the  adjacent 
ground  points.  There  are  two  ways,  therefore,  Lo  trace  the  boundary 


1  K.  (ireanlas,  P.  !•’.  Meagher,  It.  .1.  Norman,  and  1  .  Kssinger,  "The 
Itccngn  i  t  ion  o|  Handwritten  Numerals  l>\  Contour  Analysis,"  1  ilM  Journal 
of  Hoseareh  and  Dev e  lopiner ,  Vo  l  .  7,  No.  I,  pp.  1  1-21  (January  1  'Hid  )  , 
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wall:  on  the  inside,  along  the  figure  points,  or  on  the  outside,  along 
the  ground  points.  Let  the  perimeter  be  the  list  of  figure  points  found 
by  contour  following  along  the  inside  of  the  wall,  and  let  the  shell  be 
the  list  of  ground  points  found  by  contour  following  along  the  outside 
of  the  wall.  (We  also  use  the  names  "shell"  and  "perimeter"  to  refer 
to  the  corresponding  images  composed  of  the  points  in  the  lists.)  The 
starting  point  for  the  shell  is  the  ground  point  just  to  the  left  of  the 
(bottommost)  leftmost  figure  point,  where  the  perimeter  starts. 

We  have  so  far  only  informally  described  the  perimeter  and  shell. 

A  formal  definition  would  be  somewhat  complex  and  of  mainly  academic 
interest.  We  will  give  instead  an  operational  definition  corresponding 
to  a  computer  routine  for  finding  the  perimeter. 

1 .  Finding  the  Perimeter  of  a  Figure 

Step  1 .  At  each  stage  there  is  a  "current  point," 
on  the  perimeter  and  a  "current  direc¬ 
tion."  Begin  by  taking  the  bottommost 
of  tile  leftmost  figure  points  as  the 
current  point.  Take  "up"  as  the  current 
direction , 

Seep  2.  Examine  the  eight  neighbors  of  the 

current  point,  in  the  following  order: 
clockwise,  beginning  with  the  diagonal 
neighbor  just  counterclockwise  of  the 
current  direction.  Tnero  are  four 
puss ibi 1 i t  ivs  ; 


Current  direction 


an 

Hi  ght 

l>own 

Le  f  t 

1  2  3 

7  «  1 

5  6  7 

3  \  r> 

6X1 

6X2 

d  X  H 

2X6 

7  6  I> 

5  1  3 

3  2  1 

1  H  7 

The  first  figure  point  eneount o red  is  the 


next  point  on  the  perimeter,  1 1-  _■  "new" 


point.  (If  all  eight  neighbors  are 
ground  points,  the  figure  consists  of 
a  single  Isolated  point.) 

Step  3 .  Take  the  direction  of  the  step  from  the 
current  point  to  the  new  point  as  the 
"new"  direction.  However,  if  the  step 
was  diagonal,  take  the  major  direction 
(up,  right,  down,  or  left)  just  counter¬ 
clockwise  oi  the  step  direction,  us  the 
now  direction, 

Stop  4 ,  Tost  for  completion:  if  the  current 

point  and  the  new  point  are  identical, 
respectively,  to  the  starting  point 
and  the  second  point,  the  perimeter  is 
complete.  II  not,  replace  the  current 
point  and  direction  with  the  new  point 
and  direction,  and  go  back  to  Step  2 . 

The  porimctcr-f lading  process  can  he  i 1  lust  rated  by  applying 
It  to  the  quant  l/.od  figure  shown  in  Fig.  1(a),  The  hot.  I.irnino.st  of  l  he 
loft-most  points,  shown  as  A  in  Fig.  1(h),  Is  l he  original  "current 
point,"  Since  the  starting  direction  Is  up,  the  first  neighbor  of  A 
to  bo  examined  Is  a  ground  point.  The  second  neighbor,  11,  Is  a  figure 
point  and  is  taken  as  the  "new"  point.  The  direction  from  A  to  11 
(namely,  up)  is  the  new  direction.  As  the  process  continues,  the 
perimeter  points  arc  round  as  shown,  in  alphabetical  order. 

Certain  points  on  t  lie  figure  may  appear  In  the  perimeter  more 
than  once.  Thus  point  II  (not  shown)  is  the  same  as  point  1',  and  point 
V  is  tile  same  as  point  A.  Those  duplicated  points  are  not  removed  from 
the  perimeter,  for  to  do  so  would  destroy  the  continuity  of  the  perimeter 
path,  This  example  shows  why  the  test  for  completion  must  consider  more 
than  a  single  point;  the  perimeter  returns  to  point  A  (l.e.,  point  ',’) 
prematurely,  but  it  Is  not  complete  until  the  current  point  is  A  aiu] 
the  new  point  Is  li. 
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FIG.  1  FINDING 

THE  PERIMETER 
OF  A  FIGURE 


It  may  be  noted  Uuu  the  perimeter  cuts  across  an  interior 
corner  when  possible  (in  the  example,  it  goes  from  N  to  0  instead  of 
from  N  to  J  to  0)  but.  does  not  cut  off  an  exterior  corner  (does  not  go 
from  K  to  M). 

Wo  assort  without  proof  that.  i.lu>  list  of  figure  points  found 
by  the  procedure  Just  described  has  the  following  properties,  which 
correspond  to  the  intuitive  notion  of  "perimeter : " 

.Successive  points  on  the  list  are 
adjacent  (horizontally,  vertically, 
or  d  LngomU  1  y  )  , 

Knelt  point  on  the  list  ts  four-- 
adjacent  (l.e.,  adjacent  either 
vertically  or  horizontally)  to  an 
exterior  ground  point. 

All  figure  points  four-adjuceni  to 
the  exterior  ground  are  on  the  list, 

The  list,  goes  ’once  around  the  figure, 
clockwise."  In  other  words,  the  eunui- 
lu  I  Ive  change  in  direction  of  live  steps 
from  oik*  point  to  tne  next  is  iibO  In 
the  clockwise  sense, 


Property  P-1 , 


Property  P-2. 


Property 


Property  P-d , 


2. 


Finding  the  Shell  of  a  Figure 

A  procedure,  analogous  to  that  just  described  for  the  perimeter, 
has  been  implemented  for  finding  the  shell  of  a  figure.  The  shell  begins 
at  the  ground  point  just  to  the  left  of  the  starting  perimeter  point  and 
steps  around  the  figure,  in  a  clockwise  direction,  hugging  the  perimeter. 
An  obvious  duality  exists  betwoe-n  the  perimeter  of  a  figure  and  its 
shell;  they  are  largely  redundant,  and  only  one  need  be  found  during 
pattern  preprocessing.  At  present,  we  have  discarded  the  shell  in  favor 
of  the  perimeter  for  several  reasons.  The  perimeter  contains  fewer 
points,  thus  shortening  the  running  time  of  subsequent  computations.  If 
a  figure  extends  to  the  edge  of  the  quantized  field,  the  shell  extends 
beyond  the  field,  leading  to  annoying  programming  complications.  Finally, 
tile  perimeter  provides  better  starting  information  for  the  spur-finding 
procedure . 

C.  The  Convex  Hull 

Tile  convex  hull  H  of  a  set  F  of  points  is  the  set  of  all  points 
that  are  linear  interpolations  among  points  in  F;  that  is,  H  is  the  set 
of  points  x  such  that 

x  -  Z  a  .  x 
i  1 
l 

where  the  ti  are  non-negai  ive  and  sum  to  1  ar.u  tho  x  are  in  F.  For  a 
figure  F  in  a  plane,  H  may  be  characterized  intuitively  as  the  region 
enclosed  by  a  rubber  band  stretched  i round  F. 

The  convex  hull  of  a  character  is  of  interest  in  preprocessing 
because  it  includes  the  figure  and  two  types  of  ground  regions :  con¬ 
cavities  ,  which  are  ground  regions  connected  to  the  ground  area  outside 
the  convex  hull,  and  enclosures ,  which  are  isolated  from  the  outside 
ground.  Figure  2  shows  a  character  imago  (F),  together  with  its  con¬ 
cavities  (C)  and  enclosures  (K).  Tile  convex  hul  1  is  the  union  of  the 
three  regions.  The  concavities  and  enclosures  (sometimes  called  "hays” 
and  "lakes")  are  important  features  of  a  character.  Thus,  the  convex 
hull  defines  what  might  be  called  the  region  ttl  interest  of  the 
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CONVEX  HULL  H  »  F  +  E  +  C 

FIG.  2  REGIONS 

ASSOC'  TED  with 
A  CHARACTER  IMAGE 

character,  and  the  boundary  of  the*  convex  hull  servos  1.  j  separate  the 
concavities  from  the  outside  ground  (O) . 

Various  computational  methods  could  bo  used  to  TLnd  the  convex 
hull  of  a  quantized  figure.  Every  ground  point  could  he  lest ad,  for 
example,  to  determine  whether  it  satisfies  the  defining  condition  with 
respect  t.o  the  set  of  figure  points.  Certain  shortcuts,  such  as  the 
elimination  of  all  but  the  extreme  figure  points,  would  clearly  be 
needed  to  make  this  approach  economical. 

The  method  we  have  presently  adopted  makes  use  of  the  perimeter  of 
the  figure  as  its  basis.  i)sinfe  'no  perimeter,  we  find  the  boundary  of 
the  convex  hull  as  a  list  of'  points.  This  boundary  forms  a  connected 
ring  around  the  remainder  of  the  convex  hull,  which  can  then  be  separated 
from  the  outside  ground  by  a  connectivity  operation. 

The  value  of  the  perimeter  is  u  basis  hr  finding  the  boundary  of 
t fie  convex  hull  Is  a  consequence  of  two  propert  ies  of  the  perimeter 
with  respect  to  the  extreme  points  of  the  character  figure.  The  extreme 
points  of  a  figure  arc*  those  that  lie  on  the  boundary  of  its  convex  hull 
(The  extreme  points  can  also  be  defined  as  those  that  lake  on  an  extreme 
value,  over  the  set  ol'  figure  points,  of  any  linear  combination  of  t  lie 


spatial  coordinates  J  and  K.)  For  example,  in  the  quantized,  hand¬ 
printed  leller  B  in  Fig.  3  (Serial  No.  200  in  our  data  base),  all  eleven 
points  in  the  oottominost  row  arcs  among  tbo  extreme  points  because  they 
all  take  on  the  maximum  value  of  the  vortical  coordinate,  J. 


Some  extreme  points  are  non-essen I  t  1 1  :  I  lie\  ran  be  removed  from 
the  figure  without  cluing  I  ng  the  convex  hull.  flits  Is  true,  fur  example, 
of  ill  l  the  points  111  the  bottom  row  of  Fig.  ,'l  except  the  clKtlllo.si  two, 
Points  such  as  these  two,  railed  eo  rite  r  pu  I  lit  s ,  are  the  ones  that  dc~ 
term  l  ”o  the  convex  hull  ot  the  t I  guru,  Alt  other  figure  point. a  cun  be 
discardeil  without  changing  the  convex  hull.  (turner  points  can  also  he 
defined  as  those  figure  points  assuming  unique  extreme  values  of  any 
linear  combination  of  coord l nil  I es ,  t.e.,  extreme  values  not  matched  by 

any  other  figure  points.) 
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The  perimeter  of  the  figure  has  the  following  two  properties: 

Property  P-5.  All  of  the  extreme  points  of  the  figure 
(and  hence,  all  of  the  corner  points) 
lie  on  the  perimeter. 

Property  P-6.  At  any  corner  point,  the  perimeter  turns 
to  the  right.. 

A  simple  test  tells  whether  the  perimeter  turns  to  the  right  at 
the  Nth  point.  One  calculates  the  unnormalized  sine  of  the  turning 
angle  at  the  Nth  point, 
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If  this  quantity  is  positive,  the  perimeter  has  turned  to  the  right;  if 
negative,  to  the  left.  If  it  is  zero,  the  unnormal ized  cosine, 
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is  tested  to  see  whether  the  perimeter  has  gone  straight  ahead  or 
whether  it  lias  turned  180'  to  the  right,  as  occurs  at  points  G  and  Z 
in  Pig.  1.  (Note  that  no  trigonometric  functions  need  actually  bo 
evaluated. ) 

An  efficient  procedure  for  finding  the  boundary  of  the  convex  hull 
is  therefore  as  follows:  go  through  the  perimeter  list  and  mark  all 
those  points  at  which  the  perimeter  turns  to  the  right.  The  marked 
points  include  nl L  corner  points  of  the  figure.  (The  marked  points 
are  denoted  by  X's  in  Fig.  ■!.)  Begin  with  the  first  point  on  the 
perimeter,  which  is  a  corner  point  because  ii  is  the  bottommost  of  the 
leftmost  figure  points.  Go  through  the  marked  points,  considering  the 
vector  from  the  starting  point  to  each  one.  The  marked  point  associated 
with  the  most  nearly  vertical  vector  is  the  next  cornel'  point,  which  is 
shown  as  li  Jr.  Pig.  5.  Using  the  vector  from  A  to  11  as  the  test  direc¬ 


tion  now  (Instead  of  the  vertical),  go  through  the  remaining  marked 
points  and  find  the  one,  C,  such  that  the  vector  BC  makes  the  least 
angle  with  the  vector  AH.  C  is  the  new  corner  point  and  111-  is  the  new 
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FIG.  4  HAND-PRINTED  LETTER 
“B"  WITH  RIGHT-TURN 
POINTS  MARKED 
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FIG.  5  HAND-PRINTED  LETTER 
“B"  WITH  CORNER 
POINTS 


test  direction.  Continue  in  this  manner,  finding  corner  points  D,  E, 

F,  G,  II,  X,  J,  K,  and  finally  A,  which  completes  the  ring  of  corner 
points . 

It  remains  to  fill  in  the  stretches  of  the  convex  hull  boundary 
between  the  corner  points.  Since  a  straight  line  between  two  points  on 
the  quantized  grid  does  not  in  general  pass  exactly  through  grid  loca¬ 
tions,  some  latitude  exists  in  choosing  the  paths  connecting  corner 
points.  We  have  adopted  the  rule  of  building  a  path  from  one  corner 
point  to  the  next  by  taking  horizontal,  vertical,  or  diagonal  steps  as 
directly  as  possible  in  the  direction  ol  the  target  corner  point  but 
never  outside  of  the  line  between  the  two  points.  Thus,  in  the  example, 
the  first  step  from  A  toward  B  must  be  diagonal,  up  and  to  the  right, 
because  a  vertical  step  from  A  would  go  outside  of  the  line  AB.  The 
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reason  for  this  rule  is  that,  by  biasing  the  convex  hull  boundary  to  the 
inside,  we  greatly  reduce  the  number  of  insignificant  concavities  found 
between  the  boundary  and  the  figure  as  a  result  of  irregularities  in 
the  perimeter.  The  ground  point  just  to  the  right  of  corner  point  0  is 
an  example. 

The  completed  convex  hull  boundary  is  shown  in  Fig.  6,  It  may  be 
noted  that  this  boundary  consists  partly  of  figure  points  (capital 
letters)  and  partly  of  ground  points  (small  letters). 
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FIG 

.6  HAND-PRINTED  LETTER 

"B"  WITH  CONVEX 
HULL  BOUNDARY 

D.  Concavities  and  Enclosures 

Once  the  boundary  of  the  convex 
transformed  to  an  image  on  a  24  x  21 
closures  may  be  found  quite  directly 


hull  lias  been  established  and 
field,  the  concavities  and  ca¬ 
using  the  boolean  and  connectivity 
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operations  listed  earlier.  The  convex  hull  boundary  serves  as  a  barrier 
(see  Fig.  6)  dividing  the  ground  into  two  parts:  the  outside;  and  the 
concavities  and  enclosures  (either  of  which  may  consist  of  Eero,  one, 
or  more  regions).  The  figure  similarly  serves  ns  a  barrier  separating 
the  enclosures  from  the  rest  of  the  ground. 

We  define  the  border  of  the  field  as  consisting  of  those  ground 
points  lying  in  the  outermost  rows  and  columns  of  the  field  (J  =  1  and 
24;  K  =  1  and  24),  That  portion  of  the  ground  connected  to  the  border 
is  found  by  applying  the  four-connectivity  operation;  the  remaining 
ground  comprises  the  enclosures. 

A  separate  image  is  formed  consisting  of  the  ground,  minus  the 
convex  hull  boundary.  The  portion  of  this  image  not  connected  to  the 
border  is  found;  this  portion  includes  the  concavities  and  enclosures. 
Subtracting  the  enclosures,  which  have  already  been  found,  leaves  the 
concavities. 

After  the  enclosures  have  been  found  as  a  group,  they  are  separated 
by  the  dissecting  routine  D1S.E48,  They  are  then  ordered  by  size  according 
to  the  number  of  points  in  each,  found  by  the  point-counting  routine 
NUMPTS.  The  count  of  points  in  each  enclosure  is  stored  for  future  use, 
along  with  its  top,  bottom,  left,  and  right  boundaries,  found  by  rou¬ 
tine  EXTENT. 

The  concavities  undergo  the  same  processing  as  the  enclosures.  In 
addition,  a  measure  is  generated  of  the  magnitude  of  each  concavity  and 
the  direct  ion  in  which  it  laces  out  from  the  figure.  These  measures 
ait  analyzed  and  tabulated  according  to  the  eight  major  and  secondary 
directions  of  the  compass.  This  tabulation  allows  a  subsequent  decision 
routine  to  determine  immediately  if  there  is  a  concavity  lacing,  say, 
up  and  to  the  right,  without  having  to  scan  through  all  concavities. 

E.  Spurs 

The  spurs  of  a  character  are  those  strokes  that  end  in  an  isolated 
tip.  The  letter  X  has  four  spurs,  the  letter  0,  none,  and  the  letter  S, 
one  spur  with  the  special  property  of  having  a  tip  at  each  end. 
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The  list 


of  perimeter  points  is  used  to  find  the  spurs.  (This  description  will 
largely  duplicate  one  contained  in  the  Third  Quarterly  Report,  which 
described  the  finding  of  spurs  from  the  shell  of  the  figure.  The  full 
description  is  presented  here  for  completeness,  and  to  Incorporate 
recent  changes.) 

Consider  two  pointers  moving  together  down  the  list  of  perimeter 
points,  with  one  pointer  ahead  of  the  other  by,  say,  14  places.  As  the 
pointers  move,  we  calculate  the  Euclidean  distance  between  the  two 
perimeter  points  indicated  by  the  pointers.  Most  of  the  time,  this 
distance  will  be  approximately  14  units,  A  sudden  decrease  of  the 
distance  between  the  two  points  to  a  minimum  that  is  loss  than  half  its 
typical  value  indicates  that  the  perimeter  has  gone  around  a  sharp  bend- 
i.e.,  lias  gone  around  the  tip  of  a  spur.  The  position  of  the  spur  tip, 
indicated  by  the  perimeter  point  halfway  on  the  list  between  the  two 
minimum-separation  points,  is  the  primary  spur  fouture  used  by  the 
present  classification  routines. 

Once  the  spur  has  boon  found,  it  can  ho  traced  by  the  "caliper 
method,"  Imagine  that  the  legs  of  a  pair  of  calipers  are  placed  ut  the 
two  minimum-separation  points.  The  calipers  are  then  "slit)"  along  the 
spur  by  stopping  tho  legs  of  the  calipers  ulong  the  perimeter,  away 
from  the  tip.  The  calipers  are  moved  as  fur  us  they  can  go  without 
having  to  be  spread  by  more  than,  say,  seven  units.  In  some  cases, 
such  us  tlie  numeral  "6,"  tho  calipers  will  bo  obstructed  by  the  body 
of  the  figure  and  must  stop.  In  other  eases,  such  as  the  letter  "s," 
the  lens  of  the  calipers  will  travel  all  the  wuy  along  the  figure  ami 
meet,  at  the  fur  end,  Indicating  a  "single-stroke"  figure.  Tint  mid¬ 
point  of  the  moving  calipers  traces  out  tint  backbone  of  the  spur,  and 
a  list  of  the  mid-point  positions  can  be-  stored  to  represent  the  spur. 

Considerable  experience  with  the  spur- I'l. tiding  procedure  to  date 
lias  shown  It  to  he  nil  effective  method  ol  finding  spurs  and  locating 
their  tips.  However,  as  the  method  Is  presently  eons t ll utod  and  used, 
there  is  nl  1  -or-not’ilng  aspect  to  It  as  a  consequence  of  the  fixed 
criteria  employed.  As  a  result,  tin- re  Is  a  discontinuity  in  the 
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functional  relationship  of  the  spur  features  to  the  shape  of  the 
character  image,  as  the  spur  test  reverses  its  decision.  It  is  im¬ 
possible,  however,  to  devise  an  all-or-nothing  test  that  will  accept 
all  spurs  (no  matter  how  thick  or  garbled)  and  reject  all  acute  corners 
and  narrow  loops.  A  spur  test  with  the  quality  of  "graceful  degradation" 
ia  needed--one  that  produces  a  nonbinary  "measure  of  spurness."  This 
quality  has  been  built  into  the  measures  of  other  features.  The  con¬ 
cavities,  for  example,  are  graded  according  to  magnitude  ant!  degree 
of  orientation  in  eight  directions.  Consideration  is  presently  being 
given  to  variations  of  the  spur-finding  method  that  will  yield  the 
quality  of  graceful  degradation. 
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Ill  STATUS  OF  THE  TOPOLOGICAL  PREPROCESSING 
AND  CLASSIFICATION  PROGRAM  (TOPO  2) 

The  topological  preprocessing  and  classification  program  (TOPO  2), 
which  was  introduced  briefly  in  the  Fourth  Quarterly  Report,  has  been 

fully  implemented  on  the  SDS  910  computer,  TOPO  2  is  undergoing  con” 

tinuing  testing  and  modification,  so  the  picture  presented  here  will 
be  a  "snapshot"  of  the  status  of  TOPO  2  at  the  end  of  the  period 
covered  by  this  report. 

A.  Preprocess ing 

TOPO  2  takes  in  a  24  X  24  quantized  character  image  from  paper 
tape  or  magnetic  tape  and  subjects  it  to  the  preprocessing  operations 
described  in  this  and  the  preceding  report. 

Since  the  main  sequence  of  preprocessing  operations  is  based  on 
the  presence  of  a  single,  connected  character  image,  a  special  test  is 
first  made  to  detect  the  only  character  in  our  alphabet  that  should 

appear  in  two  parts,  the  equal  sign.  If  a  character  has  two  connected 

regions  which  fall  within  the  allowed  bounds  of  size  and  relative  posi¬ 
tion,  it  is  taken  to  be  an  equal  sign  and  is  not  preprocessed  further. 
Other  characters,  notably  those  with  crossbars,  also  appear  with  multiple 
connected  regions  at  times.  Therefore,  any  multiple-region  character 
failing  the  criteria  for  an  equal  sign  is  forcibly  reduced  to  a  single 
region,  first  by  bridging  the  gup  between  regions,  or,  if  the  gap  is 
too  great,  by  deleting  1  he  lesser  regton(s).  Conversely,  un  equal  sign 
may  appear  as  a  single  connected  figure,  in  which  case  il  passes  through 
the  usual  processing,  and  may  be  evaluated  as  an  equal  sign  by  appro¬ 
priate  tests. 

The  preprocessing  operations  determine  the  following  lor  the  con¬ 
nected  figure:  Its  vertical  and  horizontal  extent;  Its  slam  and  curva¬ 
ture  if  il  Is  a  tall,  narrow  figure;  its  concavities,  its  enclosures, 
tts  spurs,  mid  Its  profiles  as  seer,  t  roin  the  four  major  directions.  In 
the  course  et  t  hose  operations,  the  perimeter  and  the  convex  hull  are 
also  found . 
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B.  Intermediate  Stops 


The  preprocessed  Information  goes  through  two  intermediate  steps 
before  it  Is  ready  for  the  classification  routines.  The  purpose  of 
these  steps  is  to  predigest  the  information  for  the  classification 
routines.  The  need  for  such  predlgest ton  may  be  seen  by  considering 
that  46  classification  routines  are  required,  and  ouch  routine  will 
consider  an  average  of  perhaps  a  dozen  items  from  the  preprocessed 
data.  The  writing  of  half  a  thousand  pieces  of  computer  code  would  be 
extremely  burdensome,  so  it  is  vital  that  the  p reprocessed  information 
be  properly  organized  and  appear  in  the  form  of  variable  quantities 
that  can  be  used  directly  by  the  classification  routines. 

The  first  intermediate  i  tep  consists  of  rearrangement  and  tabula¬ 
tion  of  some  of  the  preprocessed  information.  The  enclosures  are  sorted 
by  size,  so  that  a  classification  routing  can  easily  reference  the 
largest  (hence,  the  most  definite)  ones.  A  tabulation  of  the  concavities 
is  made  according  to  their  magnitudes  and  the  directions  in  which  they 
face.  A  similar  tabulation  is  made  for  the  tips  of  the  spurs,  specifying 
the  degree  of  closeness  of  the  closest  ftp  to  the  top,  to  the  upper 
right  corner,  to  the  right  side,  etc. 

In  the  second  step,  one  or  more  conl'idence-los.s  functions  (CLF’s) 
are  calculated  for  each  of  the  important  preprocessed  quantities.  Each 
CLF  indicates  the  loss  of  confidence  that  the  character  in  question  ts 
to  suffer  if  a  given  attribute  is  expected  of  it.  The  loss  function 
transforms  the  original  measure  of  a  preprocessed  quantity  into  a 
numerical  quantity  usable  by  the  classification  routines  without  further 
computat ion . 

As  an  example,  we  consider  the  CLF's  pertaining  to  up-facing  con¬ 
cavities.  Tile  concavities  have  been  found  by  the  preprocessing  routine, 
and  a  measure  of  the  presence  and  magnitude  of  an  up-facing  concavity 
has  been  tabulated.  This  measure,  which  we  may  call  MCONC(UP),  is  the 
maximum  (over  all  concavities)  of  the  up-directed  component  ot  a  vector 
indicating  the  size  and  direction  of  cacti  concavity. 
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Figure  7  shows  three  CLF's  based  on  MCONC(UP) .  Function  LYCONA, 
shown  in  Fig,  7(a),  has  this  interpretation;  there  is  no  loss  in  confi¬ 
dence  if  there  is  no  up-facing  concavity.  If,  however,  there  is  indi~ 
cation  of  an  up-facing  concavity,  a  loss  is  incurred  which  increases 

100 
LYCONA 

0 

100 
LNCONA 
0 


100 
LNC0NB 

0 

0  5  10 

MC0NC  (up) 

(c) 

FIG.  7  CONFIDENCE-LOSS  FUNCTIONS 

with  increasing  up-strength.  By  the  time  MCONC(UP)  reaches  a  value  of 
7,  there  is  practically  no  doubt  that  the  figure  contains  a  true,  sig¬ 
nificant  up-facing  concavity,  and  tlu  full  loss  is  incurred.  Function 
LYCONA  Is  thus  appropriate  for  inclusion  as  a  term  in  the  evaluation 
functions  of  character  categories  such  as  the  numerals  1,  2,  3,  5,  etc. 
and  the  letters  A-G,  I,  O,  P,  etc.,  where  one  never  expects  an  up-facing 
coneav i ty . 
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;  Figure  7(b)  shows  function  LNCONA,  which  represents  a  loss  in 

|  confidence  if  there  is  not  an  up-facing  concavity.  LNCONA  is  thus 

1  appropriate  to  the  evaluation  functions  of  categories  such  as  the 

:  letters  U  and  V,  Function  LNCONB,  shown  in  Fig.  7(c),  also  represents 

-  a  loss  in  confidence  in  the  absence  of  a  concavity,  but  more  conserva- 

|  tively  than  does  LNCONA.  LNCONB  might  be  appropriate  to  those  characters 

j  with  smaller  (and  thus  more  readily  obscured)  up-Xacing  concavities, 

|  such  as  the  open-style  numeral  4  and  letters  H,  M,  N,  w.  X,  and  Y. 

| 

$  As  the  example  shows,  more  than  one  CLF  can  be  applied  to  a  pre- 

| 

f  processed  feature,  each  CLF  reflecting  a  commonly  used  evaluation  of  an 

)  attribute  of  the  character.  The  ramp  nature  of  the  CLF's  represents 

|  the  quality  of  graceful  degradation  that  we  believe  is  vital  for  features 

1 

;  used  in  character  recognition,  especially  when  the  "recognition"  of 

characters  is  really  the  assignment  of  numerical  confidences  to  cate¬ 
gories  for  input  to  a  text  recognizer. 

C .  Classification 

The  classifier  section  of  the  TOPO  2  program  yields,  not  a  unique 
category  assignment  for  each  character  image,  u^t  a  list  of  alternative 
category  assignments,  each  with  a  confidence  measure.  Each  confidence 
measure  may  be  considered  an  estimate  by  the  classifier  of  the  conti- 
dence  (or  probability)  t h  the  observation  (the  character  image) 
represents  a  member  of  the  associated  category.  The  confidences  range 
from  zero  to  100;  in  practice,  most  of  the  46  values  generated  for  a 
character  are  zero.  The  present  version  of  TOPO  2  calculates  the  con¬ 
fidences  independently,  and  does  not  normalize  their  sum  to  J 00  or  any 
fixed  number.  Hence,  the  confidences  are  not  true  probability  estimates. 

The  basic  expression  evaluated  for  each  category  is  a  simple  sum  of 
coni idenee-loss  functions  lor  those  attributes  pertinent  to  the  category. 
For  example,  the  total  loss  lor  the  ietter-B  category  may  be  the  sum  of 
losses  incurred  Lor;  an  up-facing  concavity  (hence,  LYCONA) ,  a  down- 
facing  concavity,  nil  right -lacing  concavity,  spin-  lips  on  the  right 
side,  lack  of  an  enclosure,  and  lack  of  a  second  enclosure.  The  sum  of 
losses  (limited  to  ]()())  ls  subtracted  from  j  00  to  give  the  basic 
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confidence  measure.  Ideally,  a  well-printed  LI  will  satisfy  all  the  re¬ 
quirements  well  enough  to  incur  no  losses  and  achieve  a  confidence  of 
100,  Most  other  characters  will  incur  losses  totaling  100  or  more  and 
be  given  a  confidence  of  zero  in  the  B  category. 

It  the  variations  in  hand-printed  material  were  adequately  covered 
by  a  straight  forward  selection  of  topological  features,  the  classifica¬ 
tion  routines  could  be  assembled  with  ease.  (Furthermore,  this  or 
other  methods  would  have  solved  the  character-recognition  problem  long 
ago.)  A  look  at  Fig.  G,  however,  indicates  some  of  the  problems  with 
the  B  category  and  gives  just  a  hint  of  the  gamut  of  problems  encountered 
in  hand-printed  material.  Although  a  B  nominally  has  a  straight  left 
side,  the  example  in  Fig.  6  has  two  serifs  that  form  a  large  concavity 
on  the  left.  The  serifs  are  almost  large  enough  to  be  found  as  spurs, 
as  they  are  in  many  it's.  in  others,  the  enclosures  are  broken  open  or 
merged  into  one  large  enclosure.  Thus,  contrary  to  naive  expectation, 
no  loss  should  be  incurred  for  Xol't-side  concavities  or  spurs,  and  only 
a  limited  loss  for  the  absence  of  two  enclosures. 

In  a  program  such  as  the  current  version  of  TOl’O  2,  where  the 
evaluation  functions  are  designed  by  a  human  programmer,  considerable 
experience  with  real  data  is  required  to  improve  the  selection  and 
weighting  of  the  CLF's.  The  present  effort  to  develop  TO PC  2  is  largely 
devoted  to  this  task,  through  a  repeated  cycle  ol  programming,  running, 
observations,  and  evaluation.  The  human  designer  lias  recourse  to  several 
avenues  of  flexibility.  He  may  ameliorate  'lie  effect  of  a  CLF  on  a 
particular  category  by  dividing  it  by  some  factor  N,  so  that  the  maximum 
loss  incurrable  as  a  result  of  the  corresponding  I  cat  lire  is  HH’/N .  lie 
may  turn  to  the  preprucessod  data  to  devise  new,  tailor-made  CLF's, 

Finally,  the  designer  may  turn  to  the  original  image  or  any  ol  ill" 
information  that  has  been  generated  during  l he  processing,  to  perform 
any  calculation  required  in  a  spin  L.il  case.  In  TOPU  11  this  last  re¬ 
course  is  used,  to  perform  a  detailed  iliscrinnn.il  inn,  onl\  when  the 
basic  confidence  measures  have  singled  out  a  particular  set  ni  eat egor i as . 
For  example,  a  detailed  calculation  to  adju.-t  the  relative  emi  I  i  d-  ive 
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ol  tlu>  5  and  &  categories  is  performed  only  when  those  categories  receive 
non-zero  confidence  measures  from  the  basic  evaluation.  There  are 
presently  about  twenty  o I  these  detailed  calculations . 

D.  Classification  by  a  Learning  Machine  front  Topological  Features 

Given  tlu*  set  of  p reprocessed  topological  leatures  from  TOR)  2, 
which  we  have  suggested  are  highly  suitable  for  classification,  it  Is 
natural  to  ask  whulher  these  features  cun  be  Input  to  a  learning  machine 
to  perform  the  classification.  It  the  learning  machine  takes  the  form 
of  a  piocowi.se  linear  machine,  the  clot  product  sums  formed  for  each 
category  can  be  related  to  the  desired  confidence  measures.  In  any 
case,  the  effectiveness  of  the  topological-featurc  plus  learnt ng-much i no 
combination  can  be  examined  by  the  usual  method  of  counting  fi  rsi  “•choice- 
correct  class l f i cut  tons, 

It  seems  best  to  present  the  feat  tire  inlormatton  to  the  learning 
machine  if  the  form  of  t'l,l'"s,  since  tlu>y  are  single  variables,  hounded 
and  cunt  l  noons,  and  they  reflect  our  exit  mutes  u!  worthwhile  paramel  ort  sta¬ 
tions  of  the  |)  reprocessed  t  aldrmtt!  t  oil .  The  baric  i’l.K's  of  TOI'O  2  cover 
most  of  tno  piMproccsscd  1  n  forma :  toa ,  but  in  give  I  lie  learning  machine'  a 
better  chance  to  make  the  .special  dlscrlmitint  ton*,  such  n«  fi — S ,  wc  : ill. til 
also  give  the  lurch  l  lie  the  results  of  the  spec  In  I  ca  leu  I  at  I  oils  when  they 
are  performed.  This  will  put  the  revised  TOR)  2  program  that  prepares 
the  l*’urni  ng-maeh!  he  features  in  tlu  eiirtoitM  non  it  inn  <>l  having,  to 
calculate  the  existing  hand-dcs  i  gneil  Inis  I  c  confidence  measures  solely 
tu  o"tler  to  know  whleh  special  lent  age  ea  t  eti  1  a  I  I  cun  to  pcrlorm,  II  l  >< 

rer  •oaatll  e  to  Use  tills  "w.islelul"  procedure  lor  tlu-  purposes  ol  Initial 

vx  |  e  r  i  men  t  a  l  I  hi  ,  .tad  to  i  nils  ;  i|,r  el  her  t  erhii  l<|ites  II  I  In-  experimental 
results  arc  eiieourag  i  ng  . 

A  version  o.  Till'll  ::  which  will  prepare  I  lie  reipilred  leal  are  vectors 

la  current  lv  Miing  will  ten.  A  large  number  <>l  i  ha  rue  I  ei".  will  In- 

prt-i.  eased  I  1111'  'dg  h  I  It  I  '*  1 1  rog  I  .  i  m  ,  anil  Its-  resulting  tli .  1  .1  tea  si  In  I  n  rui 
training  and  tiling  ■  ■  ■  •  i  log  l  lie  1 1  a  rn  i  ng  m.u  li  I  n. ■ ,  An  a  I  I  •  iiipl  will 
he  made  In  ii'-e  as  I  i-a  m  I  ng  -inaeh  I  lie  I  i  i I n I ng  ilala  those  rli.iNii.  i that 
hat  i  been  n-  eil  log  "lit  nn  ,ii-  !  gaining"  dining,  lie  dove  lti|n;ud:l  •■!  III.  ev.illia 
li.ni  l  i  ■  1 1  e  i  I '  •  i :  .  in  Mil’ll  1 1 . 


Wo  shall  report  subsequently  on  the  results  of  the  .1  ea  t*ni ng— machine 
experiments ,  which  will  afford  a  two-way  comparison:  with  the  results 
of  the  TOPO  2  evaluation  functions  working  on  the  same  preprocessed  data 
(see  1  he  next  section),  and  with  the  results  of  the  .same  learning  machine 
working  on  »  ho  very  d i  f fert-sl  p reprocessed  data  provided  by  the  optical 
mask  preprocessors,  described  in  the  preceding  reports  of  this  project. 

E  '  Ex  per  linen  tal  Results 

Tile  TOPO  2  program  was  used,  iri  the  form  that  it  had  at  the  end  of 
the  period  covered  by  this  report,  to  process  several  sets  ol'  hand¬ 
printed  data.  Although  the  output  of  TOPO  2  consists  of  lists  of  con- 
1 1  dunce  measures,  the  simplest  and  must  familiar  performance  measure  is 
obtained  by  specifically  cl assi lying  the  character  In  the  category  with 
the  highest  confidence,  The  resulting  simple  measure  (classification 
error  rate  or  success  rate)  may  be  used  for  comparison  with  other  types 
of  experiments. 

)  .  Au t  hors  1 -20 

This  experiment  was  performed  on  a  set  of  920  characters  con¬ 
ststing  ol  the  i  1 rs 1  FORTH  AM  alphabet  Coded  by  each  of  the  first  twenty 
authors  from  whom  we  collected  our  data  base.  The  error  map  for  this 
experiment  Is  shown  in  Table'  I.  The  error  map  shows  a  blank  for  each 
chan"- ! er  correctly  classified  by  TOPO  2,  i.e.,  each  character  lor  which 
the  correct  category  received  the  highest  eon f Idem- e  score,  For  each 
e  lui  rat*  t  eg  Incorrectly  t:  1  ass  I  I'  led  ,  (lie  entry  i  mil  rates  t  lie  character 
category  receiving  I  lie  highest  score,  Thus,  the  error  map  contains  the 
same  in  in  mint  Ion  as  a  con  I  us  l  on  n;a  t  r  i  \  ,  and  also  points  out  the  individual 
in  i  sc  1  ass  1  f  i  ed  vh  a  me  I  e  I'm  . 

Tlu-  overall  c I  ass  i  I  ica l  i  mi  error  rate  is  1x7/920,  er  20  per- 
c*,nt  ■  There  Is  a  wide  variation  In  the  error  rale.,  lor  individual 
a\"  hors  -*-a  1  1  I  he  wav  front  2  III  |«,  1;}.  Iij.  |.,,w  error  rales:  appear  to  be 
•■orr.-la  1  ed  with  neatness  of  printing,  m  roke  sha  rnne-...  (high  eontrnst 
""  1  Ifdte  anil  .ilia  I  1  nil  in  ol  stroke  width  I  o  eh.iract  er  si./.el.  and  lark 


n  rnatMcn  l  a  1  inn. 


Thjre  is  also  considerable  variation  in  the  error  rates  for 
individual  character  categories.  Some  characters,  notably  those  with 
the  simpler  shapes  such  as  the  period,  minus  sign,  7,  and  L,  have  error 
rates  much  lower  than  the  average.  The  two  most  "cluttered"  characters, 
the  asterisk  and  the  dollar  sign,  have  high  error  rates  because  they  are 
generally  the  most  poorly  printed.  The  asterisk  often  appears  as  a 
curiously  shaped  or  formless  blob.  Of  the  twenty  dollar  signs,  only  one 
had  the  two  enclosures  that  would  normally  be  expecLed  between  the  S- 
part  and  the  vertical  stroke.  Devising  features  applicable  to  these 
categories  is  extremely  difficult. 

The  twenty  alphabets  classified  in  this  experiment  may  be 
considered  training  data,  in  that  they  contained  the  characters  processed 
and  studied  by  the  human  designer  during  the  development  of  TOPO  2  to  its 
present  form. 

2.  Authors  21 "40 

The  data  set  for  this  experiment  consisted  of  920  characters, 
the  first  alphabet  coded  by  the  21st  through  40f.h  authors  from  whom  we 
collected  our  data  base.  These  twenty  authors  were  largely  personnel 
of  the  SRI  computer  center,  whereas  the  first  twenty  authors  were 
personnel  of  our  own  laboratory,  the  Artifical  Intelligence  Group. 

The  error  map  for  this  experiment  is  presented  in  Table  XI. 

The  overall  error  rate  is  266/920,  or  29  percent.  The  alphabets  used 
here  represent  independent  test  data.  They  were  neither  examined  nor 
processed  by  TOPO  2  before  this  experiment. 

A  number  of  possible  causes  may  have  combined  to  produce  the 
difference  in  error  rates  between  this  and  the  previous  experiment. 

(The  combined  statistical  uncertainty  is  on  the  order  oL  d  percent,  which 
is  insufficient  to  account  for  the  difference.)  First,  of  course,  is 
the  difference  in  performance  between  training  anti  testing  data,  which 
we  have  usually  encountered  in  our  learning-machine  experiments.  Second 
is  the  possibility  tnat  more  care  in  printing  was  taken  by  the  personnel 
in  the  Artificial  Intelligence  Group,  because  of  their  greater  proximity 
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to  the  project  or  the  way  in  which  the  coding  task  was  presented.  Wc 
tried,  of  course,  to  minimize  this  difference  through  our  instructions 
tu  the  authors.  Third,  the  document  scanning,  which  required  the  assis¬ 
tance  of  a  human  operator,  may  have  been  performed  less  carefully  as 
time  went  on.  A  fourth  possibility,  that  of  a  general  difference  in 
coding  styles,  appears  quite  unlikely  because  of  the  similarity  of  back¬ 
grounds  between  the  two  groups  of  authors.  Finally,  there  is  the  possi¬ 
bility  of  statistical  fluctuation  on  an  author-by-nuthor  basis.  To  the 
extent  that  each  person  prints  with  a  characteristic  level  of  neatness, 
clarity,  etc.,  the  characters  printed  by  him  are  not  statistically 
Independent  events.  The  governing  statistics  then  are  those  of  20  inde¬ 
pendent  authors,  not  920  independent  characters. 

3,  Authors  ■'1,1  —19 

The  data  set  for  this  experiment  consisted  of  414  characters, 
the  first  alphabet  coded  by  the  41st  through  49th  authors.  These  nine 
authors  were  personnel  of  the  computation  staff  at  Fort  Monmouth, 

The  error  map  for  this  experiment,  is  presented  in  Table  III, 

The  overall  error  rate  is  100/414,  or  24  percent.  The  nine  alphabets 
represent  Independent  test  data,  It  may  bo  noted  that  the  error  rate 
on  these  data  lies  closer  to  that  on  the  "training  data”  (Authors  1-20) 
than  that  on  tho  test,  data  of  the  previous  experiment.  (Authors  21-40). 

Tie  next  two  experiments  were  performed  oil  quantized  hand¬ 
printed  data  supplied  to  us  through  the  courtesy  of  Noel  Herbs  1  and  his 
colleagues  at  the  Thomas  J,  Watson  Research  Center  of  the  International 
business  Machines  Corporation.  The  data  supplied  wre  quantized  with 
approximately  30  x  '.in  resolution.  We  brought,  the  data  down  to  our  own 
raster  size  of  21  x  21  bv  casting  out  rows  and  columns  wherever  necessary, 
and  reformat t ed  the  data  records  to  match  our  existing  programs, 

1  .  Casey  1  s  D.i  1  a  : _ 1  .i  ■  tiers  and  Numerals 

A  data  base  containing  hand— pr t n t ed  letters  and  numerals  was 
collect  imI  by  Richard  Casey  from  personnel  of  the  IHM  Research  Center, 
lit  much  the  same  way  that  we  collected  our  unta  ba.se.  Kadi  coder  wrote 
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t!u>  2G-lutt.fi-  English  alphabet  plus  the  tun  digits.  Since  some  of  the: 
chtiraclors  wore  omitted  in  scanning,  however,  the  data  wore  not  pro-- 
cixolv  organ!  Van!  bv  aul  litem.  I  ns  teat! ,  the  first  twenty  samples  of  ouch 
category  on  t  h<>  tint  a  tape  were  used. 

The  TOPO  it  program  was  Irani ed  an  a  dG -eat ego ry  riussil tor  tor 
tilts  tx  per  i  men  t  by  Ignoring  nil  rcHjwn.HUM  from  the  cut ogoriOM  of  tho  tun 
spot1  i  a !  KOR TMAN"«  t  phabot  chn  rttc  t  ora  , 

Thu  tint  n  set  for  the  experiment  }  nc  1  tided  700  chiiriu'torx  ;  tho 
.'Hit  h  category,  ltd  tor  K,  was  not  prnccHKotl  beeiutHc  the  codui’M  wore  not 
Instructed  to  put  a  crtMsImr  on  7.,  A  lint  sag  ol  the  errors  tx  given  In 
Table  IV,  The  overall  error  rate  wits  160/01)7,  nr  2)  pe remit,  ‘flits  rate 
dot's  not  t  net  title  three  numeral  I'm  printed  with  Merits,  and  It  counts  ux 
correct  IR  uns  lashed  numeral  f )'«  reeognt  v.ed  an  0‘«  and  six  mix  1  ashed  l’n 
ret'ognl  ittul  hm  numeral  I'm, 

li  the  results  of  the  ex |>o t'  1  men t  on  Authors  ,'jt-H)  itrti  re- 
evaluated,  tumsl  tlurnig  only  the  lid  .t  1  phahet  t  e  and  numeric  cat  egurie.’i , 
t  lie  error  rate  la  found  to  lm  loii/llim,  or  2i)  percent.  The  dtl'reronce  in 
rates  lx  title  tc  mime  combi  mu  ton  oi  the  factum  listed;  different  coding 
environments,  different  scanning  meth.xiw,  possible  dlllerence  in  coding 
style,  amt  posts tbt<>  a  (  at  i u t  it  a  1  f }  tic t  unt  ions  • 

Tim  pe  i  i  n  nuance  oi  Topo  2  on  fit  spy's  data  has  eased  our  conconi 
that  the  prog  cum  inlghl  ho  "prov  i  tie  1  a  l , "  t  ,  slanted  toward  out'  own  data 
itud  litelluahi.  This  expert  men  I  ha»  itemonm  rn  t  eil  (tie  ability  ul  TOI’t)  2  to 
work  on  dut, i  generated  hi  a  different  Niiiiml  mt  sv»tciti  from  dlliereiit 
source  docilllienl  a  ,  at  a  ruw|)l  cl  rl  V  independent  1'oi.e. Ill'll  organt  /.at  Ion, 

A  ,  The  11a <  k  rt a mi  lla  l  a 

The  ueeinel  data  lalne  provided  to  1  PM  wan  I  lie  "  Inn  k  loom  ilalii," 
eolDt  I  h  I  l  ng  ul  liuiid  printed  niiiuera  1  n  pro.liu  ■  i|  in  the  emirne  of  routine 
operation',  bv  loin-  inventory  .lerle.  In  a  depu  i  t  lneii  t  ■■tore,  Theme  data 

an  I  I'lml.lia'cil  tpill"  "i  lean";  'he  eleikn  i  :i  (In-  liaek  . .  work  In  a  more 

coni  ro  I  I  eil  env  I  roniiieiil  and  an-  pieb.il.lv  •.  iib  |  ■  •  t  i  il  to  a  I.;,;, or  v.irli-tv  "I 
I'l'eM-.iiler,  Ilian  I  lie  a, ilea  '.tail.  When  I  he  ijuuntl/eil  iiiinni  I are  displayed 
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Table  IV 


CLASSIFICATION  ERROR  LISTING  FOR  CASEY'S  DATA 


Category 

Misclassi float  ions 

Total 

1 

-  -  - 

0 

2 

30105 

5 

3 

P85PJ  G 

6 

I 

YU  Y 1 

1 

5 

FFF 

3 

6 

GG8GG  GLF 

8 

7 

Y?2 

8 

8 

BBBB6  00 

7 

9 

840‘1 4  7 

6 

0 

-  -  - 

0 

A 

MP 

2 

B 

QQD0O  700 

8 

C 

G8G 

3 

1) 

OGQ 

3 

K 

GG8GG  GF 

? 

F 

CK 

2 

0 

ecu 

3 

II 

M1IMPM  UPM 

8 

I 

F8F 

3 

J 

UVIXU  00 

7 

K 

L0G-I 

-i  i 

L 

fra?  ee 

'<  i 

M 

HN 

N 

MMl’M 

•1 

0 

U0D 

3 

!> 

-  -  - 

11 

Q 

WOOOl*  PP-llJU 

10 

1! 

K 

1 

,s 

r>  5  5  o  r>  x  i  nap  .i  r>  n  r> 

M 

T 

Y 

1 

(J 

XKK 

V 

UUV 

a 

w 

IINNDN 

l> 

X 

VI Y! 

i 

Y 

•i 

i 

7. 

llut  j)  rurt*i.*u*il 

i  ;iu.  ii<i7  a  i 

at  the  computer,  they  are  clearly  much  better  formed  than  the  numerals 
in  our  own  data  base. 

The  data  set  usee!  in  this  experiment  consisted  of  100  examples 
of  each  of  the  numerals  1-9.  Numeral  zero  was  not  included,  since  it  is 
not  slashed  in  this  data  base.  (We  could,  in  the  future,  include  the 
zeroes  and  treat  them  as  letter  0's.)  A  listing  of  the  errors  is  given 
in  Table  V.  The  overall  error  rate  was  33/900,  or  3.7  percent.  This 
error  rate  was  achieved,  it  should  be  emphasized,  by  a  classifier  in 
which  the  design  effort  was  spread  over  46  categories  instead  of  10, 
and  for  which  none  of  tile  backroom  data  base  was  used  in  the  design 
process , 


Table  V 


CLASSIFICATION  ERROR  LISTING  FOR  BACKROOM  DATA 


Category 

M Id el  a s s i f i c a 1 1 o n a 

Total 

1 

-  ~  ~ 

0 

2 

- 

0 

52222 

5 

4 

-  -  - 

0 

5 

-  -  - 

0 

6 

VH8808SK78H 

11 

7 

22 

2 

H 

VM'l? 

5 

9 

44H7-MS5'18 

10 

0 

not  processed 

- 

33/900-3 ,7% 

Nnl  <> :  ?  i  ml  i  cutes  all  10  coni'  I  deuces  were  zero. 


K.  Plans  far  I  he  Neal’  Kut. ore 

Our  at  trill  Ion  Is  presently  turned  toward  the  experiments  tu  which 
a  pi re  owl se-1 t Hear  learning  machine  will  be  used  to  classify  the  feature 
vectors  obtained  from  the  modi  fled  TOl'O  2  program,  The  results  of  these 
experiments  should  provide  valuable  Insights  as  te  whether  the  pre- 
proees  m  I  ng  or  the  e  1  nsn  I  I  i  cil  t  1  on  Is  I  he  area  In  wlileli  our  development 
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effort  should  next  be  concentrated.  In  addition,  we  already  have 
knowledge  of  areas  particularly  requiring  improvement.  In  preprocessing, 
we  have  discussed  in  this  report  the  need  for  spur-finding  features  with 
the  quality  of  graceful  degradation.  The  classification  error  maps  show 
groups  of  often-confused  characters  requiring  further  refinements  In  the 
classifier  and  new  features  from  the  preprocessing.  There  is  a  strong 
suggestion  from  the  experimental  results  that,  the  original  confidence 
loss  functions  were  applied  too  harshly  in  general.  We  are  considering 
revamping  the  program  to  enhance  the  overall  quality  of  graceful  degra¬ 
dation  by  providing  more  conservative  CLF’s  to  a  greater  number  of 
features . 

Finally,  we  are  beginning  to  explore  the  topic  of  adjusting,  or 
tailoring,  the  classifier  to  fit  the  printing  of  the  individual  author. 

We  have  purposely  held  off  on  this  approach,  which  will  Involve  addi¬ 
tional  training  effort  or  complexity.  But  there  are  Instances  (numeral 
l's  and  slashes  being  the  classic  example)  where  different  characters 
printed  by  different  authors  are  similar  or  Identical.  Furthermore,  In 
most  cases  the  variations  of  a  character  produced  by  a  single  author  are 
fur  loss  than  those  for  the  whole  population.  The  learning-machine 
experiments  will  provide  u  convenient  framework  for  exploring  the 
tailoring  approach.  We  will  he  able  to  "enrich"  the  training  set.  with 
data  produced  by  the  test  author(s)  in  any  amount  from  ()  to  100  percent, 


IV  DESCRIPTION  OF  PROGRAMS  FOR  SYNTAX  ANALYSIS 

A ,  Introduction 

Our  general  approach  to  the  use  of  the  syntax  of  FORTRAN  to  resolve 
ambiguities  in  character  recognition  was  described  i  :i  the  Fourth 
Quarterly  Report.  Our  work  to  date  has  been  restricted  to  Isolated 
statements;  Unis,  no  information  from  ottier  parts  of  the  program,  such 
us  variable  names  or  statement  labels,  has  been  used  in  trying  t.o  ret™ 
solve  a  particular  statement.  While  much  remains  to  be  done  to  complete 
this  effort,  this  work  has  progressed  sufficiently  to  warrant  documenting 
it  in  more  detail. 

The  most  accurate  description  of  the  program  Is  given  by  the  listing 
of  the  program  itself,  and  tills  listing  is  included  in  the  Appendix.  The 
listing  gives  the  ox  no  l  definitions  of  all  of  the  UK  I’  functions  used  by 

I  he  syntax  analyzer,  together  with  values  of  parameters.  .Such  a  listing 
cun  be  traced  without  loo  much  trouble  by  anyone  fnmtliur  with  MNP  unco 
the  general  structure  ol'  the  program  is  known  and  t  lie  general  purpose  of 
the  most  important  (unctions  Is  known,  The  purpose  of  this  section  Is 
to  supply  this  needed  background  material, 

!i.  Assume!  ions 

Although  our  approach  to  using  syntax  to  resolve  ambiguities 
should  be  applicable  to  FORTRAN  generally,  the  details  depend  on  t  lie 
particular  dialect  used.  Our  program  ts  written  specifically  tor 
FORTRAN  ll  as  described  In  the  Pc  lent  i  lie  Data  .Systems  reference  manual 
,S1)S  POOOO.’U' ,  Answers  to  all  epics  I  t  oils  of  what  is  or  is  not  syntactically 
correvt  are  bused  on  I  lit)  Itae  lois~.ru  >  i-.iui  I  ■  I  o  rn  description  ol  .Nil.*;  FORTRAN 

II  given  In  Appendix  I)  of  that  iniciuu  I  , 

The  input  to  ilu-  program  is  assumed  to  lie  a  list  ol  lists  ol 
clta  rue  t  er-coii  I  l  deuce  pairs  obtained  l  I  in-  i  I  a,  ,  I  I  i  ,  •  r  .  Thus  the  in¬ 
put,  called  a  I’-llst,  has  the  l.irm 


character  la 


P 


a,.  4 


i. 

n 


) 


wlu'i’o  the  till  top-level  element  L  corruspuiuls  to  l  ho  1th 
—  i  ‘- 

the  statement  ,  Each  top- level  element  is  n  sn-enl  l«*ci  1 .—  1  i m t  mul  has 
the  form 


L  =  (  (  Char,  C -ui  )  (  Chur  Con  )  ...  {  Char  Con  )  ) 

11  2  2  in  m 

where  Chur  Is  the  l  lit  choice  tor  tin*  cn  lottery  or  the  elm  rue  t  er ,  unit 
Con  vs  the  etml’i  donee  lor  that  eholeo,  Eor  example,  the  sennnlhK  of 
tin  KND-h  1.  u  teuton  I  might  result  in  lite  Cut  lowing  P-llsl  I  rout  the  elas.'ii- 
f  i  er : 


P  >  (  <  (  >:  «<))  ((.  no)  (ti  iti)) 

(  (  N  ftt))  (W  20)  (li  111)  (V  10)  ) 

(  (  0  ,V0  il>  SO)  )  ) 

Whoa  we  lire  only  t  at  cron  t  etl  la  t  Ite  a  1 1  eraa  l  t  ovi  lor  each  eh  t  rnr  l  >•  r  , 

it  in  simpler  to  vise  No-rtlleil  A  -11*  t  a  having  the  larni 

A  '  (K1  K2  •••  K„>  • 
whore  eaeh  K  -list  hit*  the  terra 

K  i  (Char  Char  , , ,  Char  } 

1  in 

We  have  a  t  l  einpt  eil  to  um  till**  ivolat  Ion  i  oil  .  I  n  I  on  t  I  y  ,  no  that  Ity 
I  ooU  t  a  g  at  the  a  igiiiiien  l  a  of  v  In-  t  vine  t  I  •  av  one  van  t  e  t  I  tin*  tv  i  ml  of  ha  ta¬ 
il  l  rue  t  u  re  t  i  •*  meant  to  n  .  i-lvr,  ||  ’  I'  1  h  I  a  nine  |-e  a:.*  .IV ,  vve  have  I  r  1  ell 
to  line  ?i  til  llellol  e  ,v  Met  1 1 1  i  •  hitl'.l  e  t  i  ■  l".  meant  to  tie  a  i  lean  t  11  g  '  U  1  Jill  I*  l 
ol  ,i  l-OH  THAN  a  I  a  I  oine',1 1  ,  Ilnl  tniVe  Ii'.nl  iiann-'i  tier,  I  HU  1  In;  with  I'  lor 
I  tiren  In  1 1  it  a  ,  l.M  e|i  t  1 1  av  *  i  e.\  i  -i  t  ,  lanvev  e  i  ,  net  tin  I'e.nte  n  In  a  1 1  h  e  unn  1  tier 
i  gem  rut  gut  lie. 


;t  t 


t  It  1  a  | > ■'  t  nun  t  1  v  .in 


As  mentioned  previously,  we  assume  that  the  P-list  from  the 
classifier  corresponds  lo  a  single  FORTRAN  statement.  This  may  corre¬ 
spond  to  one  or  more  lines  on  a  coding  shoot,  depending  on  whether  or 
not  the  statement  was  continued.  Wo  assume  that  the  minor  cask  of 
chocking  i'ur  tho  presence  of  continuation  characters  in  Column  6  and 
properly  stringing  the  continued  lines  together  to  yield  n  P-list  for 
a  complete  statement  has  been  done  by  the  time  our  current  top-level 
function  ta  applied.  We  also  neglect  the  label  field,  assuming  that  the 
P-list  begins  with  the  character  In  Column  ?. 

Finally,  there  is  the  mutter  of  spaces  (blanks)  in  the  field. 
In  principle,  all  spaces  could  be  deleted  from  statements  other  than 
FORMAT  statements,  since,  if  no  errors  were  made  in  vocognir.i ng  the 
characters,  spaces  would  be  deleted  by  the  compiler  anyway.  However, 
spares  are  very  valuable  in  ambiguous  situations.  For  example,  the 
recognition  of 


ix>  j;i  1-1,7 

as  a  IX) -statement  is  greatly  aided  by  the  presence  of  the  spaces.  Thus 
we  have  dee  1  tied  to  retain  spaces  in  the  (’••lists  during  the  initial 
analysis  of  the  statements,  removing  only  repoatod  spaces.  This  loudx 
to  occasional  annoyances,  such  uh  the  need  to  treat  «j  TO  and  GOTO 
separately,  or  the  need  to  treat  IF  [  and  1F(  separately,  However, 
ihis  is  a  relatively  small  price  in  pay  for  (lie  rtigiUlicaiU  Improve¬ 
ment  in  the  ability  iu  roeegni/e  statement  types. 
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formal  definition  is  given  by 

[pl  -  stypef  space  [p]  ] 

Here  space  merely  removes  leading  and  repeated  internal  spaces  from  the 
P-list,  stypo  is  the  main  function  for  determining  the  statement  type, 
its  operation  depends  on  the  fact  that  all  FORTRAN  statements  other 
than  the  arithmetic-assignment  statement  begin  with  a  "control '  word, 
such  as  DO,  FORMAT,  DIMENSION,  etc.  It  uses  a  predicate  g-m  [ p  ;  m  ;  h] 
which  measures  how  well  the  front  of  the  P--llKt  mutches  one  of  these 
words.  To  be  more  specific,  _gm  is  true  if  the  average  confidence  of 
characters  in  p  corresponding  to  characters  in  Lite  control  word  in  ex¬ 
ceeds  the  threshold  h,  and  is  false  otherwise. 

slype  considers  control  words  one  after  another  until  either 
jjm  1  >‘ue  or  all  control  words  have  been  considered,  in  which  case  the 
statement  is  assumed  to  be  an  arithmetic-assignment  statement.  In 
either  case,  the  value  of  s 1 y po  is  the  value  of  a  special tsi  function 
written  specifically  for  one  .statement  type.  For  example,  if 
gm  [p  ;  (COMMON  )  ;  h  )  Is  true,  the  value  of  s i.y pc  is  the  value 
of  uctim[p] ,  a  function  written  specifically  to  deal  with  COMMON 
h  tut  .onion  Is  . 

There  are  3>1  of  these  specialist.  I'unc  1.  lens  for  specific  state¬ 
ment  typos,  and  It.  is  difficult  to  say  anything  ii  general  about  them, 
other  *  hail  the  fact  (lint  their  names  begin  with  t  l.c  li-i  t.*sr  "u."  However, 
many  of  t  Itoni  make  use  of  what  amounts  In  a  library  of  other  funct  tons, 
and  t  hr.'ir  will  he  i  les  e  r  t  lied  briefly. 

~  ■  l.h  i  Illy  Func  I  1 1 nts 

lu'.i  I  |  x  ;  n  |  :  Return,'.  I  he  I  I  .  1  d  elei||Uiis  one  in 
n  In  mi  I  h  •  ■  list  . 

4 

lu  t  hi  ■  A 1 1  pi  *ml  i  s  ill  I  mu  - 1  i  mi  1 1  *  •  I  I  u  l  t  1 1  m*.  .iri  \\  i  \  « -  n  in  .  1 1  I  *  1 1  ;>-■ 

i  *N  pri'M  u  i  ui  !»*>!  .it  i  <  >n  .  1  '•  >  r  i-.i.t-  in  n  Mil  i  nj*. ,  il  i  imik  h  lnti»T  t  i»  ii.-.i* 

inr  l  ,i  -  1  .i  iiK'i'i  I'1'  “i*  M‘  *  *x  l'  ii:>  *;  I « •  n  iml.il  inn,  Tin  ruli-.*,  lur  1  r.m I  ,t  M  n \\  I  tt  mi 
i  mi  ■  i  In*  »»llu,i  .ir«  i;  I  vt-n  in  MSI1  1^,.?  1  V(  ij^rnumM*  r  *  •»  M.mti.il  (MIT 
C.imhi  lilj.'.i*,  M.i*.  ••  .ir  lilt  •«  *  M  :»  ,  I  illili  )  , 

.'Ui 


[x ;  n  ] .-  Returns  the  list  of  elements  n  on  from 
the  list  x.  “ 

i£6[x;m;n] :  Returns  that  part  of  the  list  x  strictly 
between  the  mth  and  the  nth  element, 

nel[n;x]:  Returns  the  nth  element  of  the  list  x. 

— fx )  •  Returns  x  stripped  of  its  first  and 
last  elements. 

aU[p]:  Returns  the  A-list  for  the  P-Hst.  p, 

3 .  Utility  Predicates 

~g’.  *-,££££  [y  i  ■  true  iff  the  atom  y  is  one  of  the 
twenty-six  letters? 

iUjiiJj?  [y  J  :  true  iff  the  utom  is  one  of  the 
ten  numerals. 

mpj.vl-’  or  llottorp(y]  ;  digi;p[yj  j. 


jjpoc 


— i.illl?  [y  3  •'  lrile  iff  the  atom  y  in  one  of  thu 

ten  special  FORTRAN  characters, 
lilt  following  atoms  arc  used  to 
represent  these  characters; 


a  t  om 
LB 
ES 
AS 
SL 
PL 
MI 
PE 
CO 

ns 

111) 


character 

( 

* 

/ 

t 


LiiLIiiif'-. 


(1  *'  t  ’  |  y  ;  PI,  1  ;  t'(j  [  y  ;  MI  |  |, 

I v  :  I  :  imu  ill  im  atom  y  appears  a:.  of 

I  he  charnel  ors  i  „  the  chu rue t or- 
con  |  i  tlenoo  pa  i  rs  i  a  I  lit-  I,-  1  i  M  I  , 

■1  .  .Syntax  Prod  I  ra  I  os 

Poll  r  I  con  predicates  have  boon  wrltlo,,  to,  lomloon  common 
KOI!  TRAN  forms,  such  a.  variable  names  and  I  on. ,  Their  JlI.|.llmt.I 


:i7 


are  S-lists,  and  they  are  true  if  and  only  if  the  S-lial  is  n  syntactic 
cally  valid  iorm,  The  predicates  are  closely  related  to  a  family  of 
functions  which  remove  valid  forms  from  the  head  of  an  S-llsl;  the 
names  of  these  functions  always  begin  with  the  letter  "s,"  Table  VI 
gives  the  fourteen  predicates,  the  syntactic  form;-;  they  test  ,  and  the 
functions  they  cull  upon. 

5.  Dy  nam  i  c  -Programm  1  ng  Kune  t  ions 

The  two  most  important  1  line  1 1  ohm  for  dynamic  prog  ran', ml  ng  are 
build  and  noeloff.  They  correspond  to  l  lie  const  rue  1  Urn  of  a  graph  from 
n  P-liat  and  the  retracing  of  tluii  graph  fur  the  string  of  next  lower 
total  coni' idettci',  the  details  of  which  were  described  in  the  fourth 
Quarterly  lleport,  To  hr'  more  specific,  bul_hl  has  one  argument  i  it 
list,  and  eruutuw  a  list  v  representing  the  graph,  This  Hut  l«  lies', 
described  with  the  uitl  of  an  example,  If 

P  >•  (  ((It  -Ki)  (1C  -HI)) 

(<o  its)  (r  ;u0)  ) 


then 


v  ■  (  ((Hi)  (0  ,  ■)!)))  (7t)  «’  ,  '10))) 
((■10  <11  .  (0  (K  .  ())))  ) 


In  general,  If  p  has  n  iu|i-  level  element'.,  then  does  v, 
hut  the  correspomleiHi'  between  t  hoin  Is  in  reverse  order;  v  ,  the  ill  It 
l  op-  1  r  ve  I  4*  1 « *tuc  ■  ti  1  ol  v  i  i « r  ri'vi  |>i  in  I  In*  mill  1  op  *■  1  nv  1  nleineni  oj’  }», 

whi'IM*  ill  ti  ~  K  I  l,  N*  *W  V  J  In  ;l  11  m!  w  I W  e  m  •  t «  1  <  Miirn  l  .•»  .il'r  ll'.i.u  n  I  lhf* 
lot  l  owl  ni;  l  nun : 


(  Con  (Cli.tr  j  .  <oiij)  (CM.tr,,  ,  C»mlf) 


(Char 


Con  )) 

.1 


The  1  I  t  *i  t  i'll  'l»n  ’111  t  ( '«»!  l  ,  |  ’t  Hie  i  Uiniil.il  I  \  r  i  i  >  1 1  I  I  1 1 1  ■! )  i  e  lli.it  r  .til  Me  i:lj- 

t  .1  I  lieil  My  in.ihl  1 1|*,  mi  -  |  im  I  l  on  m  o  /  i  li.t  i  ;ir  (  •!:,  I  it  mi  1  Mr  I  I  i".  t  in  I  !  i  •.  I  *.  In 
1 1  ,  The  I  i  •  11  i  *\v  1  M l'  i  1  eiiii  n  i  •>  ;i  iM«  I  I  i’ll  |i.i  l  l  ‘.  Vb  1 1  M  I «  I  «■  1  l  (  i  )  wll  I  rli 


;<n 


expy. 
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1  I  III  1  M  I  jl 


express  ion 
ox  pro. “is  Ion -I  1st 

un«  t good-express  ton 

to  fin 

iueior 

primary 

l>r  no  k  t>  1  od  -ox  p  r  on  k  l  o  n 
bracket.  od-uxprosH i  nn*l  is  i 


conn.  I  ant. 


rp 


a  I  [tiioil*  tut  i.'tjor 
variitblo 
1  ell  n t  t  I  i  or 


l 

! 

bniekut  oil*  1  'lent 
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i pr-J  la l 


j  b  nickel  oil"  Hi  l  iiftiM’- 1  I  h  \ 
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I 
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i  nt  wjji'i'--pii  l  r 


il  I  moii-i  I  i'ii"  list 


iirni  Ice  t  t  (I  -  i  l  in  1 1  -  I  I  n  t 
1  l  ..I  1 1  -  i  l  n  I 


x  o>-  p 
s  c-X  p  l 
xc ocx plon 
suexp 
as ox pun 
h  to  rih 
■s  f  ttfttor 
a primary 
mv  fon 
sbexp 
h box pi 
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:.s  1 ;.  i  ill  on 


limit 


chnniclor  to  Molwt  from  t  lu>  Mil  h  I, -list,  ami  (b)  what  will  he  he 
cori'c’iipoiui  1  it|t  cumulative  nmi  idi-m-t'  lor  the  (k  t  1 )  i  h  element  til'  v, 

[h  tail1  i-xnmpl  «> ,  wi’  see  1  rnm  v  I  hat  we  cun  obtain  cuuni  1  n  1  i  vr 
con f i iinuccii  o f  HO  or  70,  ami  It  ivt'  wish  •  * «  obtain  ?o  wo  moat  nii|iii'1  "r" 
and  have*  u  c  limit  I  <U  t  Vi*  euiif  titonei’  til  -10  in  v^,  Tlita  hupifouH  lu  bn  the 
only  cusntlttll Vu  eonf  i iitonee  in  v  ,  niiti  it  cun  be  achieved  hv  Meier  ting 
et  Un*r  "fi“  or  "I*;,"  In  utuu'ral,  one*  own  ehoono  uny  itextron  etiiinilut  tvo 
eonf  Itietiee  shown  iii  v^,  anti  Imre  back  i  hroitnh  t  lit-  other  elements  i«r  v 
to  lint!  nil  of  the  slit  uk*  of  ciitirm'l  i>r»  froii,  the  I'-lini  that  will  yield 
Uu  ?t  1  o  1  a !  eon  l  l  lionet’ , 

The  ptirpone  ot  pet1  toil  I  Ft  to  allow  tlll’i  noil  It  l  it  |c  to  lie  tloite 

nyw  t  pitin  1  lea  H  v  ,  yielding  strinint  t'orrr»|>umtt  ms  to  miii  retm  1  vt  1  y  lower 

total  eon  fldelU'en,  Kadi  time  |!ee|oil  I  >i  ealleil,  it  returns  it  list  .,! 
tile  form  (*  i!  w),  where  it  Is  tile-  8- 1  tut  MrtllH  lit  ehut"lt  t  cl'«  ,  u  lit  the 
total  ion  i  i  ttotu'e  o!  t  Hit  Ntrinn,  and  w  m  a  list  ni  iloi  t  >i  t  on-lt  i  s  t  o  rv  litnt 
la  neotletl  foe  the  nest  tail  ei  ^eeluM,  ttieli  it  initelioii  el  n.  v  ,  w, 

Initially,  we  take  u  •  0  and  w  Nil.  in  olilitln  lie1  *«  i  i 1 1  u  n  el  hlahesi 

total  t‘lt|\  f  1  lienee  ,  |te|ieatod  e  tills  Wilt  Vil'tll  airtime  ot  iilieren.M  I  V  o  I  V 
lower  total  rout  I  lienee  unit!  alt  pons  I  hi  1  II  i  en  are  e\ liaun  I  etl ,  'I  which 
(mint  Idlin’  tell  I'l'liillm  Ml,,  Tile  mm  I  l*’ll‘t  urn  111  am!  poolult  line  the 
fo  I  I  a*  t  uu  »dhf  mu  t  1 1 > i i o  : 
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Tin  function  «lypr»nh>  I  j  umoh  but  IP  mul  pooluf  f ,  li 
obtains  1  rum  |>  l  h*1  l  *  *»  I  of  Illation!  lulu}  ruaf  Uiencf*  lint  »«t  1*1  iott 
f  ht>  f  utu’l  ioh«i -«i  jfiinipiii  ju-oiii i-ni «  "jii’fui,"  | *\  pri tifi pi t>,  tiyjH’og  ran  i w 
in  i-im.fuiu-l  ion  with  t  ho  syntax  prod ten inH  to  obtain  tugboat  p<*nfl» 

(lunt!U  CXpt'DSS  4  OHU  ,  VUi'l  Ui)l  UK  ^  l  III  MjiwJ  -  }  j  J  »»  4  <i{  p  (  |  pviu'i  irt'j  It  in 

usually  iiiuniintury  to  do  mum?  prpjimmKsi  nig  of  tin*  b^llKt  hoforn  applying 
’’yjouj,  >  Huwrwr,  t  hr  foi  lowing  functions  are  available  liiai  uso  aypruM 
ui  rocs  ly ; 


d|>s<J'fp|  -  dypi'HB (pj  fun*  t  ion {oxj>i» }  j 

( I*  i  -  'Ivjn'og  (m  f  um  t  ion  (in  nt  i  t  n  t  ji  |  j 
;U  nt  1 1 .« t  j |i  |  -  tivproK  i(>;  funt'l  ton  |  UM  1 1 *t  p J } 


tii  KtMU'i  tons  for  ilomi  j  V  i  tjjj_  Pol'llt* 

ft  I  o  1  tiMirtioiiB  (info  tioon  •*rition  tor  t  ln>  1  <»t  |uwl  nu  r  till  Til  AN 
lormsi  mcii  i  itr  vai’inblo,  I  nl  iijjoi  t  r  t  ,  iuniHot  ml  •>  tut  ogoi'  •  I  t  m  ,  anil  ox  ■ 
|ir*>u»  t  on  ,  1'in'Bo  I  will  t  i  imiu  I  rv  to  in’oilnci-  n  lngh-i  uni  tponi  »>,  valid 
KtiliHAN  I  tiriii  t  rniii  .i  P~lti.it,  li  i  hoy  mior  oo.l ,  I  }u*y  rtUttrit  t  ho  lupin  m* 
nil  f<  I  is*  ;  o  l  loo  i  nr  i  iti-v  ml  tii'it  Mt.. 


1 1!  S 1  titui'iitt  ttio  lu  ghoul  roiii  i  iifin  o  vnrinipo  nuwo 
Huh  i  .in  in.  "hi  ,|  j  ni'i!  1  t'oiii  p,  Atti-l  t  lurking  Hint  t  ho  loiigth  ui  ti  is 
l>iiiw«-cii  onn  nmt  inglit,  i-  h«ob  »lnii  w  to  nuioit  iliu  highunt  i  onu  ilotuo 
ii'ilol'  'll  hog  til  tin-  II.  urn  mill  I'fi  I  V  ,1  r  Mil, I  ion  I  Vii  rt  »„  „.|H'I  l  ho  liigllont 
i  o*i  •  I  iloni'o  r  1  r  I  nu  o  j  n  (  plomuniorlii.  to  viiiiiptoto  thu  iiuini * , 


tut  1  t  M  !_  I  P  !  I  I  o  I  II I  11  li  i  to  '  tl  1  Ip  to  h  |  1  i  *  t»  I  l  .to  lit  o  I  I  it  t  I ,  I 

tnlioln,  I  III  ugoi't.  InHioi  I  .uni  upiHni  >.  i  ji,l  f.i  I  o.l  hy  i  ..iiun.u,  ,  |i 
l"‘t"'oi  I  In-  I'  |  i, I  lot  Pint  I  l-.',  I  I.*-  .ti  iiuii.  t .  t  >  i  •  ■  t;  iiiiiiii,  |  iij; 
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(H)  AH  fhoii-i'M  nlhi'r  t  Imn  t  lu>  hislu'»t  cnnl'i  iI.'iut- 
•1  i  K  H  .uut  iMtiiimn  hit  roimivi'i!  f  nun  muh  l.-iin 
( i  t  it  l  it  h  i  ,  (h  jp’ii ,  i-ninimu- ,  if  on  ,  ihgiiii), 

(U)  Tit"  Mult*’*.  *',!,t f  1  tlt'tU’t*  iIIkI  Ik  hit*  miIitI  imI 
for  thi’  i  list  mill  tin*  lust  1,-UmIm,  Tlu’ 
iTfUiUitiK  t’-ltat  I .T  mvi-ii  I*'  <h iu  lint  is-. 

(■liiiitn  t  lu:  I  i  na  I  mwuspr  i  t  nt  i  i  s  l  1  .  n  1  r  ltd  i  i;  i  i  ) . 

*> t out*}.  1  i1 1  *  iiuti'i  i»<  j|i  j !  tin*  liiTu'ki'i i'll  li>.i  iii 

i  11 1  ugut1*  5  i.lif  1  R  Itlivillti  hljitlTMl  lnlitl  (TUI !  i  iliMHT’ .  H  miTT'lv  !ii 

nmki»  suit'  iliiil  lilt'  rit'si  .inti  l;»M  l,’-S  tutu  in  ji  run  in  in  let  l  unit  ri^ui 
bt'.U'k.Mn  as  [x>*m  I  It)  i>  rti.liTUM  i'i'»  ,  mift  I  lii'ii  jin*ii<i...i  l  In  mu  t  n  piolil  .th  In 
I  nt  HfM  , 

nsjthl|tji  uii*is  knurl » I  U’.i  In  hi‘i*nk  itn  ».\|ir«'ni>  imi  iniu  uulx.v 

|i*'t'Bs  tnitK  »nm  J  i  i'ltituult  In  i»;  l  tT'iti  ml  In  ilviuimU’  $*  i’»  •  -tr  miml  nu ,  I  In  iimilr 

Htrntnjtv  li  l»  *«>l  tI  huih*  » *  I  tits-  n|n*  rn  I  n  r*>  t ,  »,  iiiul  t  Sin  I  >i  |  >}>•  *  .i  r 

it*  puKDthln  I'ltiU'tti't  (>i's  in  l  in*  I'-llnt  mul  nm*  tli«*iu  in  Innuk  I  In'  Is  lint 

llliti  snumt'lii  a.  Illul  .»*>*  n  l  ii!|i  I  i>  r  t'X  pif.  h  t  >Ti"  ,  |i  i  1 1<  <  •<  >  ■  cnmi  I  il.i!  i.  mikix 

jllT‘«»  1 1  >11  to  Tit'  Ml  i  i  S  f  i  I'll  i  1  \  n  i  m|,  |  i  ,  (  ,  f  ,  ,  ’.ll  I  ft  i  I  fill  |  \  jin  |  I  ,  I  Ilf  1  It  Til  In  I  i 

|>l'l  Hi  i'lHIWIti  l||i  I  I  till  I  I  till  f  XJ1  li.XJl  I  it  il  Hf  1 1  In  1  fit  i  *  |  s  i  I  In -in  ,  |l  ,|  |  |  t  .  |  ||lt. 

•11'liiiii‘iii  k  fun  lin  iiiiiiTii  tt  I  u  I  1  v  i'l-.Tii  I  sttI  I  iif  ffinilituy  ;;  i  i  n  i  >.  ,itf  ->  t  i- s  t  n  j* 

1 1 1  k«- 1  In'  r  ,  <i>  j>  i  i'll  t  ftl  In  i  Iif  ii|i|irn|u!  .t  1  f  n|ti.  i  ti  l  it  lit ,  in  sit  ill  i  In  liii.il 

Hill  lii'i’i  t  I  it  li  s  iti'jl  Hit' 1 1 1  mil  in  1 1  iif  I'fitt  i !  i  nil ,  .tint)  lit*  i  it  t- 1  ft  I  1 1  hi  uf 

tl|K>l'!»  I  n  S’  H  I  li  III  lit  if  Illul  t  Iif  |ll'Ht  t'lltl  I  li  t'f  |lf  .li  I'll  , 

Tilt'  I  II  If  Itmi  ^iiiiiiili  tflUITt*  .1  iiJ.i  i.|  i.i|in|ii>i  t  1  nf  ,t  l  |  up  !  In- 

f  i  f  lilt'll  I  »  t  •  I  till'  i'  I  1  it  l  I  lilt  t  HIT'  |ll  I  *t  >i  I  1 1  1  f  tl  (If  I  it  I  I  *  I’..  ,  |  I  tin  I  i  .III  ll  I.  Ill  il 

i  I  fin  i  ti  I  ti  ,  .1  til  it.  1 1  y  ill  t||>l  f  "  iipt  m  l  t  ti’.iil  lii  i  (Hi  l  I  s  i  ji.i  i'  I  1 1  ii  1  .t  r  nt  - 1  ft 

I  |  nil  .  I  lit  > II  I  II  j  i  I  .  I  T  I  II  I  I  I  .1  I  I  S  -ill  I  I  t.  I  I  I  .  .  In  ill  1 1  Ilf.  i  .11  ll 
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bpeetnl  tut  FimcJ  tow 

Only  23  of  file  3'l  rs pee  1  ;t  1  i * l  fund  Inns  have  iH’di  writ  ton,  hut  these* 
include  riiOH  l  of  Hu*  mo  Hi  common  types  of  FORTRAN  nUismeiils,  Their 
operation  will  bn  desert  bed  brio  fly, 

*  '  t)ec  lnrnt  t  on  St  at  ernetil.  s 

wM«Sl‘j  (COMMON)  i  applies  fill  i^t  ( te!»psm*.rl  ly  uvallabU  using 
(iviiroif  iiiut  UiliMln)  to  the  1  :tl  1  of  p  that  follows  (ho  control  word, 

|,|  Hp  moat  of  tin*  n pee  Is  list  flillt  t  lohw  tu  bp  di>NC  r  i  bed ,  uroltl  begins  by 
roiiiiivina  H|mc<>K  with  dtHpaec.  If  the  tat  ]  is  nnccpnp  fill  1  y  fpsolvpti,  it 
i'ctunUs  mi  ,x»  list  conn  t  m  t  i  ng  i>r  t  he  control  word  followed  i,/  the  re™ 
(iiilvpd  fall;  otherwise  it  re!  limn  tin  HiPUHiigt* , 

to  1 1  ns  { i  •  |  (DiMMNHlON) :  unplleK  iltinttBi  ( t  PMtiorit  r  1 1  v  rtvatlabh’ 

WWW* CO  AOMM31 

us  in  a  i  i  y  prut:  iiiut  djjjj.ii.ij*)  !li  1  he  tat!  f  p  following  i  lie  control  word, 

11  fn  |(i  |  ( !■'  l)N<  "I't  ON )  !  loidiw  lor  i  he  III'hI  ponnible  toff  lil’iukot 

In  iil'eith  I  In-  l*  list  into  il  iiti  nit*  followed  by  <1  hl'iie  he  I  ed  "  I  ih*ll  1  l  t  1  ef  - 1  i  x  I  , 

it  I  lie  rcrolul  ton  l  mii'i  i'-ei!  it,  l  ho  ‘i-ltsin  are  n  t  rung  tojj»»t  tior  and  re* 

turned;  11  not,  l  hit  in  *k  i  |io>e.  Ihle  left  hiiii’het  tu  nought  and  Hie  |>rorc»tt 

(  k  re|iesi  l  ed , 

Oil  liH  II  I  |i  j  (  ii  til  IliOlsTI  N 1-  )  !  Uses  l  he  is  it  f  n  ti  ltigle  in  lit  li, 

2,  ( 'emjpn  I  a  I  lull  S  l  a  i  eliirh  t  n 

u*o*.|p!  ( Alt!  TilMli  ft  t 1  A.iM  t  liNMUNT )  •  lonht,  lor  l  he  lirwl  pixmihle 
et|  Mil  1  h  l  till  Hi  iil'eilh  I  lie  I*  •  l  i  h  t  i  li  1 1 1  ii  it  t'  it  i  il  r  V  a  !'■  l  it  id  o  I  o  l  I  owed  by  tilt 
et|inil  k  i  git  and  nn  expi-iuiui  hi,  It  i  be  niimliii  imi  in  niti  i'i'uoI  ill  ,  i  he  ,*>;  ■ 
i  l  n  I  ti  it  t  e  n  1  r  tin  |t  t  1 1  t;i '  l  In 1  r  It  I  111  rt  ■  l  n  t  Ium  I  ;  t  I  mil,  lit  i 1  lie \  t  (n  ni  n  1  b  1 1  ■  nt  j  tfit  1 
>i  1  gM  In  MOItilll  Old  tile  jiluri'Mh  I  -i  lepeiifeit, 

t  n  it  1  I  [  |  * }  (t'Al.l.)  i  reitiriiM  -i  i  .  1 1 '  1|>)  n  lilt  ti.-iitli  in  toil  Nil,; 

I  1  It  1  :i  ,  Ilf  it  I  l  tin  1 1  !  bit  i  i  i  it  1  I  V  I  lie  *t  tiliie  1  op  i  i  II  ‘I  11  I  II  'll  living  to  -I  |1  t  I  I 

I  I  to  |*|  till  I  l|  I  1 1  .1  It  tint  ■  I  I  i  I  I  on  ell  by  it  1 1  I'll  I  III  I  I  'll  e  \  1 1 1  I  "i  'I  I  I  111  |  i  •,  I  , 

,1  .  t  ii  it  I  ii  1 1  ,  I  .t !  i  -  mi  'til  ;i 

II  jjl  i  j  P  I  ,  I  lj!l  ■  I  o  |  |l  I  (III)  III)  I  II  I  lie  'I  l  i  1  it  1  l  l  ill  1  I  tie  IK  i-  I  |  in  I  (lie 

lull  el  1  lie  I'  I  I'll  I  'I  .1  lllllllbet  I'M  nil'.  tile  1  1 1  I  . " .  1 1  ■  >  1  1 1  llil,  llten  1  lit  - 

lil 


statement  in  assumed  to  he  an  ordinary  CiO  IX)  mi  a  lenient ,  and  the  highest 
tiunfick'iicu  integer  la  achcied  fur  the  tail,  II  not,  Inn  it  a  possible 
left  bracket  fallows  t  ho  control  word,  and  a  poxs  i  ni  e  comma  and  the  right 
bracket  appear  elsewhere  in  the  P-lint,  then  the  ntniement  t s  assumed 
to  be  u  COMPUTW1  Ik)  TO  iai  emi'Ut  ,  which.  *«  spill  into  a  lirne  ket  eil  -  I  u  i  ene  r- 
list  and  an  ex  p  reps  t»  inn  by  mm  .  It  neither  of  them-  eomlt  t  ions  1h 

satisfied,  then  the  5  la  t  i«  assumed  to  lie  nr.  AfiNlGNk!)  (it)  IX)  state¬ 

ment  ,  and  the  ht|ih«*l  confidence  name  in  selected  lor  i  he  tail, 

into  1  p  1  (IX>)  !  looks  fur  the  first  possible  equal  nine  to  spill 
the  tall  of  the  i'-liat  til  lowing  the  control  word  luio  an  integer' 
tdeni liter  followed  by  either  two  or  three  expl’enc  ions  nepai'a  <  eil  by 
commas,  i’t'unt do  resolves  the  left  hall  and  Imckho  resolves  the  rijilil 
hall  ,  Kaiittre  al  nnv  »lep  muses  the  timet  inn  i.*  look  ha1  the  mat 

possible  eijtiai  sigh  and  In  repent  the  jirta  ■cnn , 

n  t  t  ’■  1  ji  j  ,  j|t  11  i  |>  i  (  1 1*’  )  l  tries  In  nplt  I  I  lie  lull  into  a 
bracket  oil  expression  (which  In  llmdl  an  I  xjiiee,  I  on )  jot  lowed  l.y  all 
t  111  eger  I  I  I  |tl  t< ,  11  weeks  liat  li  I  Dun  I  lie  olid  n  I  lie  \  list,  I  onl.  |  of,  tor 

a  possible  d  I IJI  1  "iMIiiin.i -tt  j  |t  l  t  n«u|Oe)tee  ,  II  hill  I  ea  It  I  it)  ,  11  looks  |(>r 

■iliot  her  a, all  hoquenee,  and  M  sm'1'i'ttt  t  III  ,1)01111  It  1 1  ii  dot  lei  ,1  ji.eotlhle 
I’liihl  bracket  -dig  I  I  scqtleitie,  it  t>mnd,  llll>.  I  It  lined  an  the  •cat  alive 
«pIM  1  and  M  lJM  ( 1  0 in)n iru r  1  1  v  mailable  ie>  1  up  dvprojj  and  1  nt  t  rijileji) 
l«  applied  to  Hie  riglil  liat  I  id  the  I1"  I  Hit,  li  this  'alht,  I  he  Itc.s  I 

pnhKihlc  r  t  U 1 1  *  nrai  kei  ••dt  ni  1  mijiiete,  D.  -•ought  tor  another  imitative 

split,  and  tin-  pi  m  can  In  J  i  pml  I  ml  ,  II  t  I  l  tot  n  ill  (  eedu  ,  e  \  j.  In  applied 

to  the  It'll  hull,  del  II  1  li  I  >•  a  t  no  nm  1  mb  I  lie  nopal  a  t  r  ,'1  1  | j  ale 

a  t  I'llllii  I  1 1  )p  *  t  1 1  e  1  and  lei  til  lied, 

liana  lj£U  i  |I  I  (  A.’.,’.  )  1 1  S'  )  :  1  ‘  "  -  lei  lor  I  lie  *  ..ill  t  - 1 1  word  '  |‘l )“  I  o  opt  I  1 

I  lie  hill  i  Ml  !■  a  a  1  1  1 1 1 !  «■  I  ■>  I  I  owed  1  a  an  1  11 1  1  mi  ,  |  I  .1  I  ■  n  I  a  I  i  re  e<  m  I  t'o  I 

w-.ild  In  toiiiiil,  muni  1.  » I  - 1 1 1  1  *  ■  1  1.1  la  -a. Ill-  the  rli;l|i  lint  I  anil  yar  in 

app  I  I  eil  I  i .  1  r  ,*d  \  i-  I  le  I  .  ‘  1  hall, 

opaline  ||,j  1 1  ,  I  )  ;  1  p|  1 1  1 1  .  mini  I  1 ,  Ihe  tall  el  p  I  .  >  1  h  av  I  li); 

I  he  1  ..ill  11 .  I  word. 


A,  Iiiput  /Out  pul  StatomontH 


The  1 npnf /out  put  tlm(  tio  nut  concern  ma.jjtH’ttc  tape 

mt*  Ukuitieal  ■  •xcopl  for  the  control  word .  Kor  (Iiuko  t, 1  ul  oniulllM ,  olio 
function,  gertio,  » H  twoil  to  roRolvo  the  tail  of  p  following  the  control 
wortl,  noli  lo  iooku  lor  tt  cohkih  It*  **pl  i  i  t  n«  tail  miu  an  integer  followed 
liy  mi  input-output -lint  ,  applying  mnnt  in  (ho  left  half  and  lulUl 
(temporal*  l  1>  a  v  a  i  1  a '  1 1  o  u*>ing  tlypro^  ami  till  t»i  p)  to  the  right,  half. 

Tin’  tot  lowing  input /mu  pul  »«•.  at  (.’twills  arc  hiuull  ml  in  thin  ways 


liphc  h  1  p  | 

iiriiiiiU-'. 

(Ha nut  { J1 1 

.'jiiiu:  f'»! 

i'/iLT.u:  1 1’  i 

upl  III  ip  j 


(  ACifKS'T) 

( I'WNCIt ) 

(h'.wni  TAI'K) 
(UKAH) 

(TVl'ii) 

l At V fit 'T  TAI'K) 
(1’IUNT) 


Three  oilier  w !  a  i  ciimiit  a  conccriu  n«  niiigiict  ic  ta|u*  handling  at  mi 
have  i dont  tcii I  liiiinx  oM  i’pt  fur  Uu>  iimti  ol  word,  ami  only  rciiuirc  t  li.it 
'3il  'M'l'l  1  oil  t»>  Inc  tall  ul  Hie  I'-it’t,  'flu*  n>  s*  c«*i»  |»»  iiitt  t  ng  fuitelluita 
a  re  l 


noi  iiij 


MI'Wiul  |  p  j 

nltaj;  [  p  I 


( KNi)  mi;) 

(IlKWlNtl) 

( HACKS! 'Ad  I" ) 


<P»fNi  (  QUO  T  t”  THtSS  rite  WAS  CREATED  ON  <>> 
(PRINT  <OUOTt”  28 -JUNE -m?  >  > 

(  DEHNEQ 

<  S»aCE 

(UAM80A  <P> 

(  CONS 

<  <  NOT  (  EQUAL  RP  (  GAAAR  PM) 

<  CLPSC  PM 

(  r  <  SPACE  (  CDR  P > )  >  )  )  > 


<  Ct,  PSE 

(LAMRPA  iP) 

<  COND 

<  (  NULL  ( COR  P > ) 

P  » 

( i AND  C  EQUAL  SP  < CAAAR  P  >  ) 
(  EQUAL  SP  (CAAAOR  PM) 
(CLPSf  (COP  P >  > ) 

<  T  ( CONS  (CAR  P ) 

(CLPSC  <  COR  P  >  >  >  M  M 


(  NFL 

<  t  AMRO A  *  N  L  ) 

<  PROS  (MU) 

<  SfTQ  H  1 ) 

(SETO  U  L  > 

LOOP(COND 

H  f'OUAL  M  N  ) 

(  RETURN  <  CAR  U  M  M 
(SETO  M  <  AOOl  M) ) 

<  SETO  U  ( CON  U ) > 

(GO  LOOP) 

)  >  ) 

( MATCH? 

( L  A  M  R  0  A  (L  O 
(CONt) 

( ( NULL  L  ) 

0  > 

(  <  EQUAL  X  (  CAAR  ».  >  > 

(CAOAR  L ) ) 

( T  ( MATCH?  <  COR  L > 

X  M  M  > 

(HATCH 

(LAMRDA  (P  M> 

( PROO  I  PI  Ml  C  IM 
(SETO  C  0> 

(  SE  TO  D  M  ) 

(SETO  PI  P  ) 

(SETO  Ml  h  ) 

A  (CONO 

(  ( NULL  Ml  ) 


■HI 


(RETURN  (QUOTIENT  C  (LENGTH  D>>>>) 

<  SETQ  C  (PLUS  C  (HATGN2  <  OAR  Pi  > 

( CAR  Ml  )  n  > 

(SETQ  Pi  (COR  Pt  >) 

<  SETO  Ml  ( COR  Mi  > ) 

(GO  A  > 

)  >  ) 


(  QM 

(  L  *  <  »  M  M  > 

(CONO 

< i and  (qreatcrp  (add*  (length  p>> 

( LENGTH  M >  > 

(GREATgRP  (MATCH  P  M> 

M  )  ) 

T  > 

(  T  NIL))!) 


(  ST  YPE 

(LAMBDA  <e> 

(CONO 

(  (  AND  (  EQUAL  fr  (  LENGTH  P  )  > 

(  OM  P  ( QUOTE  (RETURN)) 

Hi  > ) 

<  QUOTE  ( RETURN  )  >  ) 

< ( AND  t  EQUAL  A  <  LENGTH  P  >  > 

(  TIM  P  (  QUOTE  <  55  T  0  P  )  ) 

HI  )  ) 

(QUOTE  (STOP))) 
i  <  AnO  ( EQUAL  N  ( LENGTH  P )  > 

U)K  P  ( QUOTE  ( P  A  U  §  E  ) ) 

WJ  )  ) 

(QUOTE  (PAUSE  )  >  > 

(  (  AND  <  EQUAL  f»  < LENGTH  P  >  > 

( GH  P  ( QUOTE  ( C  0  N  T  I  NUT)) 
HI  )  ) 

<  QUOTE  <  CONT iNUf  )  >  ) 

(  (  AND  <  EQUAL  3  (LENGTH  P  )  > 

<  oh  p  <  quote  ( e  n  p > ) 

HI  )  ) 

(QUOTE  (ENTnn 

I  (  QM  P  (QUOTE  (  fi  0  SP  T  0  SP  )  > 

W  ) 

( LOO  P  >  ) 

(  (  AND  ( QM  P  ( QUOTE  ( P  0  SP  >  ) 

M  ) 

(GREATERP  (NUMVAL  INTI.  A  P)) 

H?  )  ) 

<  unn  p  ) ) 

(  <  QM  P  (  QUOTE  <  Ci  0  T  0  )  ) 

H  > 

( UGOTO  P  )  ) 

( ( QM  P  ( QUOTE  ( C  A  L  L ) > 


(UCALL  PM 

UGH  f  (QUOTt  (S  U  B  R  0  U  T  I  N  E  >  > 

H) 

<  USHRTN  PM 

ugh  p  (quote  «n  1  mens  i  on>) 

h  > 

<  UDlM  P  )  ) 

( ( GN  p  <  QUOTE  ( P  A  U  $  £  )  > 

N  ) 

<  UPAUSt  P ) ) 

M  GM  P  I  QUOTE  ( C  0  M  M  0  N  M 
M  ) 

( UCOM  P  J  ) 

U«H  p  <  QUOTE  (FORMAT)) 

H  > 

(  UP  OR  M  PM 

UGH  P  (QUOTE  U  C  C  £  P  I  SP  M  M)) 

H  ) 

( UACCTP  P  )  > 

MOM  P  <  QUOTE  <1  P  LB  SENSE  $P§W!  T 
M  ) 

(uirss  pm 

MflM  p  ( QUOTE  (ASSIGN)) 

M  ) 

\ UASS1QN  P  )  > 

M  GM  P  ( QUOTE  (ACCEPT)) 

M  ) 

(UACC  PM 

MON  p  <  QUOTE  it  N  0  SP  P  !  t.  E  )  > 

M  ) 

I  UEF  P  )  ) 

( <  GN  P  ( QUOTE  (FUNCTION)) 

M  ) 

<  (JEN  P  )  ) 

UGH  P  (QUOTE  (EQUIVALENCE)) 

M  > 

(UEOV  PM 

(<QM  P  (QUOTE  <  P  U  N  C  N  SP  T  A  P  D) 

H  ) 

<  UPNTP  P  )  > 

(  (ON  p  (QUOTE  (  P  :j  n  c  mm 

H  ) 

( UPNOH  P  )  ) 

MOM  P  <  QUOTE  <  T  Y  P  E  )  ) 

H  ) 

( UT YPE  P  )  ) 

IIGM  P  (OUOTf:  (RE  AD  SP  TAPE)) 

H  ) 

<  URDTP  P  )  ) 

((OP  P  (QUOTE  (READ  SP  INPUT  SPT  A 

H  ) 

(  UR  I T  P  )  ) 

( ( CM  P  ( QUOTE  ( R  E  A  0  )  ) 

H  ) 


t 


CM)) 


PE)) 


<  URIAD  P  >  ) 

U  OH  P  (  QUOTE  (  R  i  W  l  N  0 )  ) 

H) 

{  UPWND  P  )  > 

IIOH  P  <  QUOTE  (W  P  t  TfSPT  A  P  C>> 

H  ) 

t  UWT  P  >  ) 

<  (  OH  P  <  QUO  IMP  SI  N  T)l 
M  ) 

(  UPRNT  P  )  > 

< ( GW  P  <  QUO  T  E  (  S  E  N  S  f  SP  l_  I  <3  H  T)> 

H  ) 

(  USE  P 5  ) 

( ( OM  P  ( QUOTE  (BACKSPACE)) 

M  ) 

<  URSP  P  )  > 

<<QM  P  <  QUOTE  (IF  SP  FLOATING  SPOVERFLO 

W  )  ) 

M  > 

(  U  }  FT  0  P  >  > 

(  (  f)M  P  (QUOTE  (  V  R  I  T  C  SP  0  U  T  P  U  T  SP  T  A  P  E  >  ) 

H  ) 

( UWQT  P  >  ) 

((OH  P  (QUOTE  (I  f  Lfl  S  f  N  S  E  SP  LIGHT)) 

H  ) 

(UP! SI  P>> 

( ( OM  P  ( QUOTE  <1  F  SP  >  ) 

H  ) 

<  UffS  P  )  > 

(  (  OM  P  t  QUOTE  (1  F  IQ)) 

M  ) 

(ill  Ft  P  )  ) 

(  T  ( U AS  (  DESPACE  )*>>»>>> 

(  ST 

( L AMflDA  ( P  ) 

( STTPE  ( SPACE  P  )  )  )  ) 

( NUHVAL 

( t  AMflOA  <  L  > 

(  COND 

(  <  NOLI  I.  ) 

0  > 

(  <  NIIMRFP0  (  CAAR  L  >  ) 

(  CADAR  l.  )  ) 

(  T  (  NIJMVAL  <  CDH  L  >>>>>> 

(  A I  T  1 

(LAMBDA  ( l > 

(MAPCAH  L  (FUNCTION  CAR)))) 

(  A  I  T 

(LAMBDA  (P> 

(MAPCAR  P  <  F  (INC  TICK  ALU)))) 


(  NUM 7 

(LAMBDA  (K) 

<  CONO 

(  <  NULL  K  J 
NIL  > 

<  < NUHBERP  <  CAP  K  >  ) 

{ CAP  K  >  > 

(  T  <  NUM2  (  COP  X  >  )  )))  ) 


(  NlIM  3 

( L  AMBOA  ( A  > 

(MAPCAR  A  (FUNCTION  NLM2 >)  > > 
<  NtIMl 

(LAMBDA  (A) 

(  CONO 

( ( MEMBER  NIL  < NUM3  A)) 

NIL  > 

<  T  ( NUM3  A  m  >  ) 


(  UfiOi 

(LAMBDA  <P  N> 

(CONO 

(  ( EQUAL  N!L  INUMi  (ALT  (TAIL  P  N>>>> 

(QUOTE:  (MISSING  NUMBERS  IN  GO  TO  STATEMENT))* 
(T  (CONO 

((EOUAL  7  N) 

(APPEND  (QUOTE  (G  0  SP  T  0  SP )  > 

( NUM 1  (ALT  (TAIL  P  7  )  >  >  )  ) 

((EQUAL  fe  N) 

( APPEND  ( QUOTE  (G  0  T  0  SP  )  ) 

( NUM 1  (ALT  (TAIL  P  6  >>)>>>>>>  ) 

( nmtch 

(LAMBDA  (P) 

( PROG  (C  D) 

(SETO  C  0) 

( SETO  D  (LENGTH  P  > ) 

A  (CQND 

((NULL  P) 

<  RETURN  ( QUO T IENT  C  D  >  >  >  > 

(SETO  C  (PLUS  C  (NUMVAL  (CAR  P>>>> 

(SETO  P  (COR  P)) 

(  GO  A  ) 

)  )  ) 

(  MFM2 

( L  AMRDA  (  ¥  A  ) 

(  CONO 

((NULL  A) 

NIL  ) 

( <  MEMBER  X  ( CAR  A  >  ) 

T  ) 


iJ.J 


( T  ( MEM2  X  ( CDR  A  )  )  )  J  J  ) 

<  URO 

(LAMBDA  (P> 

(  UGO X  P  7  >  >  > 

<  undo 

(LAMBDA  <P) 

<  UGOX  P  6  )  n 

(  UGOX 

(LAMBDA  (P  N) 

((LAMBDA  €  X  > 

(  COND 

(  <  AND  (GREATERP  (NMTCH  X) 

H3  > 

(LESSP  (LENGTH  X) 

6  ) 

(ALLNUMP  X>» 

( UGOl  P  N  )  > 

((AND  (MEMBER  l8  CALTi  < NEL  N  P>)> 
( MEM?  CO  <  ALT  X  )  ) 

(MEM?  R0  (ALT  X  )  )  ) 

<  UCGT  P  N>> 

<  T  <  U  A  S  (5  T  P  N  >  )  )  ) 

(TAIL  P  N ) ) > ) 

( ALLNUMP 

(LAMBDA  (P) 

( (LAMBDA  ( A  > 

(  COND 

((NULL  (NUMJ  A)) 

NIL  ) 

(  t  t  )  n 

(  ALT  P)M) 

(  HEAD 

(LAMBDA  ( P  N  ) 

( HE  ADI  (CDR  P) 

N 

(LIST  (CAR  P  )  )  )  )  ) 

( HEADl 

(LAMBDA  ( P  C  U  ) 

(  COND 

((NULL  P) 

(REVERSE  U>> 

< (EQUAL  C  1  ) 

(REVERSE  U>> 

(  T  (HEADl  ( CDR  P  ) 

( SUB  1  C) 

(CONS  (CAR  P) 

U  )  )  )  )  )  ) 


<  tail 

<  LAMBDA  (PM) 

(  COND 

((NOLL  P) 

NIL  > 

( <  EOUAL  N  i  ) 

P  ) 

(  T  (TAIL  <  CDR  P ) 

<  SUB  1  N  >  >  >  >  >  > 

( NuMEM 

(LAMBDA  (A) 

(  COND 

((NULL  A) 

NIL  > 

( ( NUMBERP  ( CAP  A  )  > 

T  ) 

( T  ( NUMEM  ( CDR  *>>>>>> 

( tjPAuse 

(LAMBDA  <P) 

(COND 

((NULL  (NUM1  (ALT  (TAIL  P  7)))) 

(QUOTE  (MISSING  NUMBER  IN  PAUSE  STATEMENT  )  )  ) 
(T  (APPEND  ( OUOTE  (PAUSE  SP  )  > 

( NUM 1  (ALT  (TAIL  P  7  ))>)>))  ) 


( UASGT 

, lambda  ( P  N  ) 

(  COND 

< ( NULL  ( VAR  (TAIL  P  N  )  )  ) 

(OUOTE  (NO  VARIABLE  IN  ASSIGNED  GO  TO))) 
(T  (APPEND  (QUOTE  <G  0  SP  T  0  SP > > 

(VAR  (1AIL  P  Nl>)>>)> 


(  UCGT 

(LAMBDA  (P  N) 

((LAMBDA  (X) 

(  COND 

((NULL  X) 

(OUOTE  (CANT  RESOLVE  COMPUTED  GO  TO)>> 
(T  (APPEND  (OUOTE  ( G  0  SP  T  0  SP)) 

X  ) )  )  > 

( UCGT2  (TAIL  P  N  )  )  )  )  ) 


(  UCGT? 

(LAMBDA  (P) 

((LAMBDA  (A) 

( PROG  ( C  U  V  0  ) 

( SETO  C  4  ) 

LOOP<  COND 

< ( LESSP  ( LENGTH  A) 
5  ) 

(RETURN  NIL )) 


55 


< ( NOT  <  AMO  (  NUMEM  (CADR  AM 
t  MEMBER  RB  (CAOOR  AM 
(OR  (MEM8ER  SP  (CADDDR  A)) 

(MEMBER  CO  (CAOODR  A)))>) 

(GO  8  )  )  > 

(SETO  U  (81N1HST  (OESPACE  ( HEAD  P  (  SUBi  C)M> 

i 

(  COND 

((NULL  U> 

(GO  8 ) ) > 

(SETO  V  (EXP  (DESPACE  (TAIL  P  ( ADD!  C>>>>> 

<  COMO 

((NULL  V) 

(GO  B  M  > 

(SETO  Q  (APPEND  <  QUOTE  ( SP  )  ) 

V  >  > 

( RETURN  ( APPEND  U  0 ) ) 

B  ( SETO  C  ( ADD1  C ) ) 

(SEYO  A  ( CDR  AM 
(GO  LOOP) 

»  > 

<  alt  p>>>> 

( nrsPACE 

(LAMBDA  (P) 

(  COMO 

((NULL  P> 

NIL  ) 

((EOUAL  SP  (CAAAR  PM 
(DESPACE  (CDR  PM) 

(T  (CONS  (CAR  P> 

( DESPACE  <  CDR  P  >)))))  ) 


(  UIFS 

(LAMEDA  (P) 

((LAMBDA  (A) 

(COND 

( ( MEMBER  SP  ( CADDR  A  )  ) 

(UlESi  (UIE  (DESPACE  ( CDDDR  P>))>) 

( <  MEMBER  LB  (CADDR  A  >  ) 

(1JTFL  P>> 

<  T  ( QUOTE  (CANT  RESOLVE  IF  STATEMENT))))) 
( ALT  P  )  )  )  ) 


(  UIFL 

(LAMBDA  (P) 

((LAMBDA  (SO 
(  COND 

<  ( NULL  X  ) 

(QUOTE  (CANT  RESOLVE  IF  STATEMENT))) 

<  T  ( APPEND  ( QUOTE  (  T  F  M 

X  )  )  )  ) 

(UfF  (DFSPACC  (CDDR  PMMM 


(  U1FS1 

(LAMBDA  (X) 

<  COND 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  IF  STATEMENT  )  )  ) 

(T  ( append  (Quote  <t  f  spj> 

X  >  >  >  >  ) 

(  U  JF 

(LAMBDA  (P> 

(  (LAMBDA  (  A ) 

(PROG  (C  U  V) 

( SETO  C  i  ) 

F  (COND 

((LESSP  (LENGTH  A) 

7  > 

( RETURN  NIL ) I 

((NOT  (AND  (NUMEM  (CAR  A>> 

(MEMBER  CO  (CADR  A  >  > 

( NUMEM  (CADDR  A  > ) > ) 

(GO  B ) > ) 

(SETO  C  (PLUS  C  2>  > 

(SETO  A  ( CDDR  A)) 

E  (CONO 

((LESSP  (LENGTH  A) 

5  ) 

(RETURN  NIL)) 

((NOT  (AND  (NUMEM  (CAR  A)) 

(MEMBER  CO  (CADR  A)) 

(NUMEM  (CADDR  A>>>> 

(GO  D)>> 

H  (CONO 

((LESSP  (LENGTH  A) 

A  ) 

(RETURN  NIL)) 

((NOT  ( AND  (NUMEM  (CAR  A)) 

(MEMBER  RB  (CADR  A)))) 

(GO  G  )  )  ) 

(SETO  U  (IFLIST  (REVERSE  (HEAD  (REVERSE  P) 
C  > ) ) ) 

( COND 

((NULL  U> 

(GO  G  )  )  ) 

(SETO  V  (EXP  (REVERSE  t  T«  I L  (REVERSE  P) 

( ADDl  C  )  ) )  )  ) 

(  COND 

((NULL  V) 

(GO  G  )  )  ) 

(RETURN  (APPEND  V  U>> 

G  ( SETO  C  ( ADDl  C  )  ) 

( SETO  A  ( CDR  A ) ) 

(GO  H) 

D  ( SETO  C  ( ADDl  C ) > 

(SETO  A  ( CDR  A ) ) 


(GO  E  ) 

B  (SETQ  C  ( ADDi  C)> 
(SETQ  A  <C0«  A  >  > 
{GO  F) 

> > 

(  BE!  VERSE  (  ALT  P  >  m  > 


(UOO 

< L  AMRO A  (P> 

<  C  L AHBOA  (X) 

(COND 

<<NULL  X) 

(QUOTE  (CANT  RESOLVE  DO  ST ATEMtNT > > > 
(T  (APPEND  (OUOTE  (D  0  SP » > 

X  )>  >  ) 

(UDOl  (CDDDR  P>>)>> 


<  UDOl 

( LAMBDA  <P) 

{(LAMBDA  (A) 

( PROG  (C  Q  U  V ) 

(SETO  C  4) 

LOOP( CONO 

( <  LESSP  <LENG?  ,  A) 

7  ) 

(RETURN  NIL.* 

((NOT  (MEMBER  €S  (CADDOR  A)>) 

(GO  B>>> 

(SETO  U  (FRONTDO  (MEAD  P  (  SUBi  OH! 

(  COND 

((NULL  U> 

(GO  B  )  >) 

(SETO  V  (B^CKJ)  ( OESPfCf  (TAIL  P  (ADDi  C  )  > )  J ? 
(  COND 

((NULL  V) 

(GO  8  m 

(SETO  0  (APPEND  (QUOTE  (ESI) 

V  > ) 

( RETURN  ( APPEND  U  0  >  ) 

3  ( SETO  C  ( ADDI  C  )) 

(SETO  A  (COR  A)) 

(GO  LOOP) 

)  > 

( ALT  P  )  )  )  ) 

( FpONTDO 

(LAMBDA  (P) 

(LAMBDA  (A) 

( PROG  ( C  0  U  V  Ai > 

(SETO  C  *  i 
( SETO  Si  A  > 

LOOp( COVL 

: ( LESSP  ( LENGTH  A  > 

2  ) 
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(RETURN  NIL  M 

((NOT  <  MEMBER  SP  (CADP  AH) 

(GO  B>  H 

(SETO  U  (NUNi  (HEAD  Ai  (SUBi  C))H 
(  COND 

< ( NULL  U > 

(GO  B  >>> 

(SETO  V  (IDENT  (DESPACE  (TAIL  P  < ADDi  C>HH 
(COND 

((NULL  V) 

(GO  B  >  > ) 

(SETO  G  (APPEND  (QUOTE  ( SP  ) ) 

V  ) ) 

(RETURN  (APPEND  U  Q ) ) 

B  (  SETO  C  (  ADM  C  ) ) 

(SETO  A  ( CDR  AH 
( GO  LOOP ) 

) ) 

( ALT  P  )  )  )  ) 

( BACKDO 

(LAMBDA  (P> 

< (LAMBDA  ( A  ) 

(  PROG  ( C  Q  U  V  > 

(SETO  C  2) 

TAGKCOND 

(IIESSP  (LENGTH  A) 

2  > 

(RETURN  (0ACKOO1  PH> 

((NOT  (MEMBER  CO  (CADR  AH) 

<  GO  B H  ) 

(SETO  U  (EXP  (HEAD  P  (SUBi  C)))> 

(  COND 

((NULL  U) 

(GO  B  H  ) 

( St  'f  Q  V  (EXP  (TAIL  P  (ADDl  C)))) 

*  ~DNO 

i < NULL  V  ) 

(GO  9  H  ) 

( St  TO  G  (APPEND  (QUOTE  (CO)) 

¥  )  > 

<  RETURN  <  APPEND  U  0  H 
B  ( SETO  A  <  CDR  A * ) 

( SETO  C  <  ADDi  C ) ) 

( GO  T AG  1  > 

)  ) 

(ALT  P  >  > ) ) 

( BiCKOOi 

(LAMBDA  »P» 

( (LAMBDA  (A ) 

( PROG  ( C  U  V  0 > 

< SETO  C  21 
F  ! COHO 


MLESSP  (LENGTH  A) 

9) 

(RETURN  NIL  > ) 

((NOT  (MEMBER  CO  (  CADR  A))) 

(GO  Bm 

(SET©  U  (EXP  (HEAD  P  ( SUB  l  CM)) 
(CONO 

((NULL  U> 

(Go  am 

(SETQ  V  (BACKD02  (TAIL  P  (ADtti  C)>>) 
(COND 

((NULL  V) 

(GO  B  m 

(SETC,  Q  (APPENO  (QUOTE  (  CO  >  ) 

V  )  ) 

(RETURN  ( APPEND  U  Q  >  > 

8  (SETQ  A  ( CDR  A>> 

(SETO  C  ( ADOi  C  )  ) 

(00  F  ) 

>  ) 

(ALT  P)>>> 

|  (RACKD02 

I  (LAMBDA  (P) 

!  ((LAMBDA  (A) 

(PROG  <C  U  V  Q> 

(SETQ  C  2) 

F  (CONO 

( ( LESSP  (LENGTH  A) 

3  ) 

( RETURN  NIL  »> 

((NOT  (NEMBER  CO  (CADR  A))) 

( GO  9  >  ) ) 

(SEto  u  <exp  (head  p  <suai  cm) 

;  (COND 

((NULL  U) 

J  (GO  B))l 

f  (SETO  V  (EXP  (TAIL  P  (  ADD1  C)))J 

(COND 

>  ((NULL  VI 

(GO  BID 

(SETO  0  (APPEND  (QUOTE  (CO)) 

V  )  ) 

(RETURN  (APPEND  U  0>) 

B  (SETO  A  (COR  A)) 

(SETO  C  ( ADD1  C  )  ) 

(  GO  F  ) 

>  ) 

( ALT  P  )  )  )  ) 

(HAS 

(LAMBDA  (P) 

( ( LAMBDA  <  A  ) 

|  (PROG  (C  U  V  0) 

4 

<* 
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■tsm sr 


( SETO  c  a> 

LOOP(COND 

( ( LESSP  (LENGTH  A> 

3  > 

(RETURN  (QUOTE  (CANT  RESOLVE  ARITHMETIC  ASSIGNMENT 


STATEMENT  ) )  ) ) 


((NOT  (MEMBER  ES  (CADR  A>>> 

(GO  B>>> 

(SETO  U  (VAR  (HEAD  P  ( SUBi  C>>>> 
(COND 

((NULL  U> 

(GO  Bill 

(SETO  V  ( EXPH  (TAIL  F  ( A0D1  C)>>) 
(COND 

((NULL  V) 

(GO  en> 

(APPEND  (QUOTE  (ESI) 


(SETO  Q 
V  )  > 
(RETURN 
(SETO  C 
(SETO  A 


(APPEND  U  OH 
( ADD1  C>> 

( CDR  A  )  > 


(GO  LOOP) 


>  > 

I  ALT  P  ) ) > ) 


.;ass®. 


■*m 


( UASSIGN 

(LAMBDA  (P> 

( ( L AM80A  (X) 

(COND 

((NULL  X) 

(OUOTE  (CANT  RESOLVE  ASSIGN  STATEMENT >>> 
(T  (APPEND  (OUOTE  ( A  S  S  I  G  N  SP ) ) 

X  ) )  >  > 

(UASSIGNi  (TAIL  P  «>>>)) 


( UASSIGNl 
(LAMBDA  (P> 

((LAMBDA  (A) 

(PROG  (C  U  V  0  Al) 

(SETO  C  3) 

(SETO  Al  A) 

LOOP( COND 

((LESSP  (LENGTH  A> 

3  ) 

( kETURN  NIL)) 

((NOT  (AND  (MEMBER  T  ( NEL  3  A)) 
i MEMSER  0  (  NEL  4  A ) ) ) > 

(GO  0  > ) ) 

(SETO  U  (NUK1  (HEAD  Al  (DIFFERENCE  C  2>>>> 
(  COND 

((NULL  U) 

(GO  B  )  ) ) 

(SETO  V  (VAR  (TAIL  P  (PLUS  C  3)))) 

(  COND 
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(  <  NULL  V» 

(GO  B>>> 

(  SETO  Q  ( APPEND  (QUOTE  ISP  T  0  SP  ) ) 
V)) 

(RETURN  (APPEND  U  G>> 

8  (SETO  C  (ADDl  C>) 

( SETQ  A  ( CDR  A>) 

(GO  LOOP  ) 

>  ) 

( ALT  P)  > )  > 


( UFN 

(LAMBDA  IP) 

< (Lambda  ( x > 

(CONO 

( ( NULL  X  ) 

(QUOTE  (CANT  RESOLVE  FUNCTION  STATEMENT})) 
(T  (APPEND  (QUOTE  (FUNCTION  SP  ) ) 

X  >  ))  ) 

(UFNl  (DESPACE  (TAIL  P  10)>>>>> 


(UFN1 

(LAMBDA  (P> 

((LAMBDA  (A) 

(PROG  (CUV) 

(SETO  C  3) 

LOOP(COND 

( ( LESSP  (LENGTH  A) 

4  ) 

(RETURN  NIL)) 

((NOT  (MEMBER  LB  (CADR  A))> 

(GO  B  ) ) ) 

(SETQ  U  (IDENT  (HEAD  P  (SUBi  C))>) 
(COND 

((NULL  U) 

(GO  B  )  )  ) 

(SETO  V  (BIDLIST  (TAIL  P  C)>> 

(  COND 

((NULL  V) 

(GO  B  ) )  ) 

( RETURN  ( APPEND  U  V  )  > 

B  (SETO  C  ( ADDl  C>) 

(SETO  A  ( CDR  A  > ) 

(GO  LOOP) 

)  ) 

(ALT  P  )  )  ) ) 


( UCALL 

(Lambda  <p> 

( <  LAMBDA  (X) 

(  COND 

( ( NULL  X ) 

(OUOTE  (CANT  RESOLVE  CALL  STATEMENT!)) 
(T  (APPEND  (OUOTE  (C  A  L  L  SP > ) 
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xm> 

( UCALL 1  (DESPACE  (TAIL  P  6>)>>>> 

( UCALL1 

<  LAMBDA  <P> 

((LAMBDA  (X> 

(  COND 

((NULL  X> 

(UCALL2  P>) 

(  T  X  >  )  ? 

( IDENT  P  >  >  r > 

<  UC ALLS 

(LAMBDA  (P) 

((LAMBDA  (A) 

( PROG  (CUV) 

(SETO  C  2) 

LOOP<  COND 

( (LESSP  (LENGTH  A  ) 

4  ) 

( RETURN  NIL)) 

((NOT  (MEMBER  LB  (CADR  A>>> 

(GO  8))) 

(SETO  U  (IDENT  (HEAD  P  (SUB1  C)>)> 

(  COND 

((NULL  U) 

(GO  B>)) 

(SETO  y  (EXPL  (TAIL  P  C))> 

(COND 

((NULL  V) 

(GO  3))) 

(RETURN  (APPEND  U  V>> 

B  (SETO  C  ( A0D1  C)> 

(SETO  A  ( CDR  A)) 

(GO  LOOP) 

)  ) 

(ALT  P)))> 

( usbrtn 

(LAMBDA  (P> 

((LAMBDA  (X) 

(  COND 

((NULL  XI 

(QUOTE  (CANT  RESOLVE  SUBROUTINE  STATEMENT))) 
(T  (APPEND  (QUOTE  (SUBROUTINE  SP ) ) 

X  >  >  )  ) 

(USBRTNi  (DESPACE  (TAIL  P  12)>>>>> 

( USBRTNi 

(LAMBDA  (P) 

((LAMBDA  (X) 

( COND 

((NULL  X) 

( USBRTN2  P  )  ) 


-i -ww  'mwtfseuia >  - 


<  T  X  )  >  ) 

< JDENT  P>)>> 

<  USSR  f N2 

(LAMBDA  <P> 

( ( LAMBDA  (A) 

<  PROG  <  C  U  V  > 

(St TO  C  2  > 

LOQP(COND 

( ( LESSP  (LENGTH  A) 

4  > 

<  RETURN  NIL)) 

((NOT  (MEH3EP  13  ( CADR  A>>> 

(GO  B  )  >  > 

(SETO  U  (  IDENT  (HEAD  P  (SUBi  05)) 
(COND 

((NULL  U) 

(GO  B))> 

(SETO  V  (BIDLIST  (TAIL  P  C)>> 

(COND 

((NULL  V) 

(GO  B  >  >> 

( RETURN  1  APPEND  U  V ) ) 

8  ( SETO  C  ( ADOi  C  » ) 

(SETO  A  (CDR  AT) 

(GO  LOOP) 

) ) 

(ALT  P) ) ) ) 


(  UCOM 

(LAMBDA  (P) 

((LAMBDA  (X) 

(  COND 

((NULL  X  ) 

(QUOTE  (CANT  RESOLVE  COMMON  STATEMENT))) 
(T  (APPEND  (QUOTE  (COMMON  SP > > 

XI))) 

(1DLIST  (DESPACE  (TAIL  P  8)))))) 


(  UDtM 

(Lambda  <p> 

( (lambda  < X  ) 

(COND 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  DIMENSION  STATEMENT))) 
(T  (APPEND  (QUOTE  (DIMENSIONS?)) 

X  )  )  )  ) 

(DIMLIST  (DESPACE  (TAIL  P  11>>)>>> 


l  UACC 

(LAMBDA  (P) 
((LAMBDA  (X) 

(  COND 

< ( NULL  X  ) 


< QUOTE  < CANT  RESOLVE  ACCEPT  STATEMENT))) 
(  T  (  APPEND  < QUOTE  { A  C  C  E  P  T  SP > > 

X)))) 

(  GEN  10  ( TAIL  P  «))>)) 


<  UPNCM 

(LAMBDA  (P) 

((LAMBDA  (X) 

(COND 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  PUNCH  STATEMENT))) 
(T  ( APPEND  (QUOTE  ( P  U  N  C  H  SP )  ) 

X  >  >  > ) 

( GEN  1 0  (TAIL  P  7))))) 


( UPNTP 

(LAMBDA  (P> 

((LAMBDA  (X) 

(CONO 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  PUNCH  TAPE  STATEMENT))) 
(T  (APPEND  (QUOTE  (PUNCH  SP  TAPE  SP)) 

X  > ) ) ) 

( GEN  1 0  (TAIL  P  12  > )  > ) ) 


(UREAD 

(LAMBDA  (P> 

((LAMBOA  (X) 

(  CONO 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  READ  STATEMENT >)> 
(T  (APPEND  ( QUOTE  (R  E  A  D  SP > > 

X  ) )  > ) 

(GEN  10  (TAIL  P  6  >!>))■ 


(UTYPE 

(LAMBDA  (P) 

((LAMBDA  (X) 

( COND 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  TYPE  STATEMENT))) 

(T  (APPEND  (QUOTE  <T  Y  P  E  SP ) ) 

X  )  )  )  ) 

(GENIO  (TAIL  P  6  )  >  )  )  ) 

<  U  ACC  TP 

(LAMBDA  (P) 

( (LAMBDA  ( X  ) 

<  COND 

( ( NULL  X  ) 

(QUOTE  (CANT  RESOLVE  ACCEPT  TAPE  STATEMENT))) 
(T  (APPEND  ( OUOTE  (ACCEPTSPTAPESP)) 

X  > )  )  ) 

<  GENIO  (TAIL  P  13  >  )  )  )  ) 
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i UPRNT 

( LAMBDA  (P) 

( ( LAMBDA  (X) 

( COND 

< (  NULL  X) 

(QUOTE  (CANT  RESOLVE  PRINT  STATEMENT})) 
(T  (APPEND  (QUOTE  ( P  R  I  N  T  SP ) ) 

X  )  )  )  ) 

(GENIO  (TAIL  P  7  )  )  >  ) ) 


(  QENIO 

(LAMBDA  (P) 

((LAMBDA  ( A ) 

( PROG  ( C  U  V  0  Ai  ) 

( SETQ  C  2) 

( SETQ  Ai  A) 

LOOP( COND 

((OR  ( LESSP  (LENGTH  A) 

3  ) 

(GREATERP  C  6)) 

(RETURN  NIL)) 

(( NOT  ( AND  (NUMEM  (CAR  A ) ) 

( MEMBER  CO  <  CADR  A ) ) > ) 

(GO  0  ) ) ) 

(SETO  U  (NUMi  (HEAD  Ai  ( SUBi  C)>>> 
(COND 

((NULL  U) 

(GO  8  ) )  ) 

(SETO  V  (IOLIST  (TAIL  (DESPACE  P) 

<  ADDi  C  )  )  > ) 

(  COND 

((NULL  V) 

(GO  8  )  > ) 

(SETQ  Q  (APPEND  (QUOTE  (CO)) 

V  )  ) 

(RETURN  ( APPEND  U  0)) 

B  ( SETO  C  ( ADDi  C  )  ) 

(SETQ  A  <  CDR  A  )  ) 

(GO  LOOP) 

)  » 

<  ALT  <  DESPACE  P  )  }  )  )  ) 


{  UFP 

(LAMBDA  (P) 

( ( L  AM8DA  ( X  ) 

<  COND 

((NULL  X) 

(QUOTE  (CANT  RESOLVE  END  PILE  STATEMENT.)) 
(T  (APPEND  (QUOTE  ( E  N  D  SP  P  1  L  E)> 

X  >  )  )  ) 

(EXP  (DESPACE  (TAIL  P  1D)))>>> 


fifi 


<  UPWND 


( LAMBDA  <P) 

( (  LAMBDA  (X) 

(COND 

( (  NULL  X > 

<  QUOTE  (CANT  RESOLVE  REWIND  STATEMENT))) 
<T  (APPEND  (OUOTE  (REWIND  SP  ) ) 

X)))) 

(EXP  (DESPACE  (TAIL  P  «>>)))> 


(UPSP 

(LAMBDA  (P) 

((LAMBDA  (X) 

(  COND 

((NULL  X) 

(OUOTE  (CANT  RESOLVE  BACKSPACE  STATEMENT))) 
(T  (APPEND  (QUOTE  (8  A  C  K  SPACE  SP)) 
x  nn 

<EXP  (OESPACE  (TAIL  P  ii>)>))> 


(  INIT 

(LAMBDA  (N) 

( INIT1  N  NIL  ))) 


i 

i 

i 


( INIT1 

(LAMBDA  <  N  U) 

(  COND 

( ( EQUAL  N  0) 

U  ) 

<  T  <  INIT1  (SUBi  N) 

( CONS  i  U) ) ) ) ) ) 


( DECM0D2 

(LAMBDA  (N) 

(REVERSE  (DECMOD21  (REVERSE  N>>)>) 

<  DECM0D21 
(LAMBDA  (M) 

<  COND 

( ( NOT  ( MEMOER  1  M  > ) 

NIL  ) 

( <  EQUAL  1  (CAR  M  )  ) 

(CONS  0  (CDR  M>>) 

(T  (CONS  1  (0ECM0D21  (CDR  M >>>>)>> 

V  PMLAB 

( LAMBDA  ( p  PML 1ST  C  ) 

( ( l AM80A  (X) 

(  COND 

((NULL  P) 
nil  > 

( ( NULL  ( CDR  P  5 ) 

(REVERSE  PML 1ST)) 

( (OR  (MEMBER  PL  X ) 

( member  MI  X ) 
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<  MEMBER  AS  X) 

(  MEMBER  SL  X  ) ) 

<  PMLAB  (CDB  P) 

<  CONS  C  PML1ST) 
( ADDt  C) ) ) 

(  T  (PMLAB  <  CDR  P) 

pmlist 

( ADOi  C>>>>) 

<  ALTi  ( CAP  P)))l) 


<  S^G 

(  LAMBDA  C  X  M  N  ) 

(  COND 

((EQUAL  M  (SUBI  N>) 

NIL  ) 

( (  QREATERP  N  (LENGTH  X») 
(TAIL  X  (ADD!  M>)> 

<  T  (HEAD  (  Tail  X  <  ADDi  MU 
( DIFFERENCE  < SuBi  N> 

M  ) )  )  ) )  > 


( EXPH? 

(LAMBDA  (P  CD  U  V) 

<  CONO 

((NULL  V) 

U  > 

( T  (EXPH5  P  (CDR  CD ) 

(CONC  U  (OP  (NEL  (CAR  CD) 
P  )  J 

(CAR  V  > > 

( CDR  V  )  >  >  >  > ) 


(  OP 

(LAMBDA  (L) 

(  COND 

( ( NULL  L  > 

(OUOTE  (ERROR))) 

( ( OR  ( EQUAL  < CAAR  L  ) 
PL  ) 

(EOUAL  (CAAR  L) 
Ml  ) 

( FQUAL  ( CAAR  L  > 
AS  ) 

( EOUAL  ( CAAR  L  ) 
SL  )  > 

((,  ?  ST  (  CAAR  L  !)) 

(  T  (OP  <  CDR  L  >  )  )  )  )  > 

(  E  V  P  M  3 

( LAMBDA  ( P  CD  ) 

( <  LAMBDA  (  X  > 

(  COND 

( ( NULL  X  ) 

NIL  > 


(  T  (EXPH5  P  CD  <  CAR  X) 

< CDR  X>)>>) 

<  EXPH4  NIL  (EXPH41  P  ICONS  0  ( APPEND  CD  < OUOTE  (  1000)) 

}  ) 

NIL  )  )  )  )  ) 


( EXPH4 

( LAMBDA  ( U  V  ) 

(PROG  (  R  > 

LOOP! COND 

((NULL  V) 

(RETURN  (REVERSE  U>>> 
((GREATERP  (LENGTH  (CAR  V)) 
HE  ) 

(RETURN  NIL))) 

(  COND 

( ( NULL  ( CAR  V  )  ) 

(RETURN  NIL  >  )) 

(SETO  R  (EXP  (CAR  V))) 

(CONO 

((NULL  R) 

(RETURN  NIL))) 

( SETG  U  (CONS  R  U)> 

(SETO  V  ( CDR  V)) 

(GO  LOOP) 

) ) ) 

( EXPH41 

(LAMBDA  (P  CDA  W) 

(CONO 

((NULL  (CDR  CDA)) 

(REVERSE  W>> 

(T  (EXPH41  P  (CDR  CDA) 

(CONS  ( SEG  P  ( CAR  CDA  ) 

(CADR  CDA)) 

W  > )  )  )  )  ) 


<  EXPH? 

(LAMBDA  ( P  PML 1ST  UPTO  ) 

(EXPH3  P  (DBD  NIL  PMLIST  UPTO)))) 


(  DBD 

(LAMBDA  ( U  PML 1ST  UPTO  ) 

(  COND 

((NULL  UPTO) 

(REVERSE  U>> 

( (EQUAL  1  (CAR  UPTO)) 

(DBD  (CONS  (CAR  PMLIST) 
U  ) 

(CDR  PMLIST) 

(CDR  UPTO))) 

(T  (DBD  U  (CDR  PMLIST) 

( CDR  UPTO  ) ) )  ) ) ) 


ft*#*. 


I 

i 

j 


<expm 

(LAMBDA  <P> 

(COND 

((NULL  ( CDR  P)) 

(EXP  P  » ) 

(T  ((LAMBDA  (PMLIST) 

(  COND 

< (IESSP  (LENGTH  P ) 

HE  ) 

( EXP  P ) ) 

( (NULL  PMLIST  ) 

NIL  ) 

(T  (EXPHi  P  PMLIST  (JNIT  (LENGTH  PMLIST)))))) 
(PMLAB  (COS  P> 

NIL 

2  > ) ) )  > ) 


( EXPH1 

(LAMBDA  (P  PMLIST  UPTO) 

(COND 

((NULL  UPTO  > 

NIL  ) 

( T  < ( LAMBDA  (  X ) 

(COND 

((NULL  (EXPP  X)) 

(EXPM1  P  PMLIST  ( DECMOD2  UPTO))) 
(  T  X  )  > ) 

(EXPH2  P  PMLIST  UPTO)))))) 


<  LETTERP 

(LAMBDA  (A) 

(MEMBER  A  LETTERL 1ST ))) 

( DIGITP 

(LAMBDA  ( A  ) 

(MEMBER  A  DIGITL 1ST  )  ) ) 

( SPEC! ALP 
(LAMBDA  (A) 

(MEMBER  A  SPEC  1  ALL  I  ST ))) 

(  ANP 

(LAMBDA  i 0  > 

( OR  (  LETTERP  A ) 

(DIGITP  A  )  )  )  ) 


( SfGNP 

(LAMBDA  (A) 

(  OR  (  EO  A  Pt.  ) 

( EO  A  MI)))) 

(  E  vPP 

(LAMBDA  (  l.  ) 

( NULL  ( SEXP  L ) ) ) ) 
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(Explp 

<  LAMBDA  CL> 

*  NULL  (SEXPL  u  j  > } 

<SpXPt 

( LAMBDA  f  L  ) 

(  COND 

<  (NULL  L  ) 

ERRL  ) 

<T  (SCOEXPLON  (SEXP  L  )>)))  > 

<  SCOEXPLON 
(LAMBDA  u  ) 

(  COND 

( ( MULL  U 
L  > 

«  (  EO  (CAR  L  > 

CO) 

( SCXPt  ( CDR  L ) i ) 

<  t  l  n  n 


<  Spxp 

(LAMBDA  <L> 

(COND 

( <  NULL  L) 

ERRL  > 

< (SIGNP  { CAR  L  >  > 

<  SUEXP  <  CDR  L )  ) ) 
(T  (SUEXP  L  ) ) ) )  ) 


<  suexp 

(LAMBDA  (L) 

(COND 

((NULL  L  ) 

ERRL  ) 

<T  (SSEXPON  CSTERM  L >>)))) 

( SSEXPON 

(LAMBDA  (L  ) 

(  COND 

( (NULL  L  > 

L  > 

( (SIGNP  <  CAR  L  > ) 

(SUEXP  (CDR  L  >) > 

(  T  L  >  >  ) ) 


(  STERM 

(LAMBDA  (L  '/ 

(  COND 

((NULL  L) 

ERRL  ) 

(T  (SFONTEBM  ( S F ACTOR  l  )))>>) 
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( Sr ACTOR 

{ LAMBDA  CL ) 

CCONO 

((NULL  L  ) 

ERRL  ) 

CT  (SEONFACTOR  <  SPR 1  MARY  L)))J») 

( Sprimarv 
(LAMBDA  CL  > 

(COND 

C ( NULL  L) 

ERRL  > 

CCLETTERP  (CAR  L  >> 

C  SVFQN  C  CDR  l))l 
C ( OR  (DJCITP  (CAR  L  >> 

<  EO  ( CAR  L  > 

PE  )  > 

<  SCONSTANT  L>) 

C ( EQ  <  CAR  L  ) 

LB> 

<  SBEXP  L ) > 

<  T  ERRL  > ) )  > 

( SVFON 

( lambda  ( L  ) 

CCOND 

((NULL  L) 

L  > 

CIANP  (CAR  L  )  > 

(SVFON  (CDR  L))) 

C ( EO  (CAR  L  > 

LR  ) 

CS8EXPL  L  )  > 

(  T  L  >  > )  > 

( SRFXP 

(LAMBDA  ( L  > 

(COND 

((NULL  L) 

ERRL  > 

( (  EQ  (CAR  I.  ) 

LB  ) 

( SRB  ( SEXP  ( CDR  L  >  >  >  > 

( T  ERRL  )  >  >  > 

( SREXPL 

( LAMBDA  ( L  ) 

(  COND 

((NULL  L> 

ERRL  > 

( ( EO  ( CAR  L  ) 

LB  ) 

(  SRB  (  SEXFL  (  CDR  !_>»>> 

( T  ERRL  )  )  )  > 
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(  SRB 

(LAMBDA  (L) 
iCOND 

( < NULL  L  > 

ERRL  ) 

<  <  EQ  (CAR  L) 

R8  > 

I CDR  L  >  > 

4  T  ERRL  > )  >  > 

<  SEONTERM 

(LAMBDA  4L> 

(  COND 

( ( NULL  L  ) 

L  > 

( ( OR  (EO  ( CAR  L  J 
AS  ) 

(EO  ( CAR  L ) 

SL  I  > 

(STERM  (CDR  L>)> 

<  T  L  >  >  >  > 

<  SEONEACTOR 

(LAMBDA  ( L i 
(  COND 

((NULL  L) 

L  > 

( (NULL  (CDR  L ) ) 

L  ) 

((AND  (EO  (CAR  L> 

AS  > 

(EO  (CADR  L> 

AS  )  ) 

(SFACTOR  (CODR  L>>> 

(  T  L  J  * ) ) 

( SrONSTANT 
(LAMBDA  ( L ) 

(COND 

((NULL  L) 

ERRL  » 

4  T  (  SEON  (  SPREE  IX  !_>>>>>> 

( SPREEIX 

(LAMBDA  (L> 

(  COND 

< ( NULL  L  ) 

ERRL  ) 

( ( DIGITP  (CAR  L  >  ) 
(SINDOTON  (CDR  L>)> 

( (EO  (CAR  L  > 

PE  ) 

( SPREDOT  ( CDR  L  )  )  ) 
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IT  ERRL>>>> 


( SPRwDOT 

(LAMBDA  <L) 

(COND 

I (NULL  L  > 

ERRL  ) 

((DIGITP  ICAR  L>> 

(SINTEGERON  < CDR  L ) )  ) 

<  T  ERRL  )  M  ) 

I S 1 NTEGERON 
(LAMBDA  (L> 

I  COND 

I  I  NULL  L  ) 

L  > 

I  I DtGITP  (CAR  L  >  ) 

(SINTEGERON  * CDR  L  >  )  ) 
(T  L>>)> 

( SINDOTON 

{LAMBDA  IL> 

(  COND 

( t  NULL  L  > 

L  ) 

I <  DIGITP  I  CAR  L  )  ) 
(SINDOTON  (CDR  L  >)  ) 

I <  NOT  (EO  (CAR  L) 

PE  )  I 
L  > 

I  I  NULL  I  CDR  L  > ) 

NIL  > 

KDIG1TP  (CADR  L  )  ) 

(SINTEGERON  I CDDR  L>>> 
I T  ( COR  L  )  >  > >  ) 


(  SEON 

(LAMBDA  (L) 

I  CONO 

I <  NULL  L  > 

L  > 

( ( EO  I  CAR  L  > 

(QUOTE  E)I 
( SSINT  ( CDR  L  )  )  ) 
(  T  L  >  >  >  > 


(SSINT 

(LAMBDA  ( L  > 

(  COND 

( ( NULL  L  ) 

ERRL  ) 

I  I DIGITP  (CAR  L  >  ) 

(SINTEGERON  ( CDR  L  >  )  ) 
I ( NULL  < CDR  L  )  ) 


7-1 


ERRL  > 

(UNO  (SIGNP  (CAR  L>> 
(OIOITP  (CADR  L  >  >  > 
(SINTEGERON  (CDOR  L>)> 
<  T  ERRL  )  > ) ) 


(  ‘5  V  A  R 

(LAMBDA  (S> 

(COND 

((NULL  S) 

ERRL  > 

(T  (S8EXPL0N  <  S I D  S)))))> 


<  S|D 

(LAMBDA  <S> 

<  CONO 

( ( NULL  1 ) 

ERRL  ) 

( <  LETTERP  <  CAR  S  >  ) 
(SANON  (COR  S)>> 
(  T  ERRL  ) )  t ) 


( SaNON 

(LAMBDA  (S) 

<  CONO 

((NULL  S) 

S  > 

UANP  (CAR  S  )  > 

(SANON  (COR  S>>> 

(  T  S  )  )  >  ) 

(SBEXPLON 
(Lamboa  (s> 

(  CONO 

((NULL  S) 

S  > 

( ( EO  ( CAR  S  ) 

LB) 

(SBEXPL  3)) 

<  T  S  )  > ) ) 

(SBIOLIST 
(LAMBDA  (S) 

(  COND 

( ( NULL  S  ) 

ERRL  ) 

( ( EO  ( CAR  S  ) 

LB  ) 

<SRO  (SIDLIST  ( CDR  S>>>> 

<  T  ERRL  ) ) ) ) 

(SIDLIST 

(LAMBDA  (S) 

( COND 


((NULL  S> 

east  > 

<T  (  SCO  I  DC.  X  STQN  (SID  S)>))>) 

<  ScOIOLISTON 
(LAMBDA  (SJ 
(  COND 

((NULL  S) 

S  > 

KtQ  <  CAR  S) 

CO  ) 

(SIDUST  <  CDR  8m 
(  T  S  >  >  ) ) 

( SB  I NTL 1ST 
(LAMBDA  (S) 

<  COND 

((NULL  S> 

ERRL  ) 

< ( EO  (CAB  S ) 

LB  ) 

(SRR  (SINTLIST  (CDR  R)))> 

(T  ETRRL>>>) 

(SINTLIST 
(LAMBDA  <S> 

(COND 

((NULL  S> 

ER»L  ) 

(T  (SCOIMTLISTON  (SINTCGERL 

( SCOINTLISTON 
(LAHBOA  (S) 

(  COND 

((NULL  S) 

S  > 

(  (  fro  (CAR  s  > 

CO  ) 

(SINTLIST  (CDR  S>>> 

(  t  s  > )  n 

( S’NT^GERL 
( lambda  ts> 

(  COND 

((NULL  S) 
t'RRL  ) 

( (NOT  ( DIOITP  (  CAR  S  >  > ) 

ERWl.  ) 

(  (  F  OU  At.  (CAR  S  ) 

0  ) 

K'RRL  ) 

( T  <  PROG  ( N  R  > 

( STTO  N  < l FNGTN  S  »  ) 

( SC  TO  R  ( SINfEGPR  S  )  > 


V  (i 


<  SETQ  N  ( DIFFERENCE  N  ( LENGTH  ft  )  > ) 
(COND 

I (  GREATERP  N  5) 

(  RETURN  ERHL>n 

<  RETURN  R  > 

)>  >> ) 


( S  INTEGER 
(LAMBDA  ( S  > 

(  COND 

( ( NULL  S  > 

ERftL  ) 

< ( DIG! TP  (OAR  S ) > 

<  S  I NTEGERON  (COR  S>>> 

( T  ERRL  >  >  >  ) 

(SINTTRIPLE 
(LAMBDA  ($> 

(SCOINTPAIR  (SINTEGER  S>>>> 

( SCOINTPAIR 
(LAMBDA  (S) 

(COND 

((NULL  S> 

ERRL  > 

( (EO  (CAR  S  > 

CO  ) 

(SINTPAIR  (CDR  S>>) 

(T  EMU))) 

(SINTPAIR 
(LAMBDA  (S> 

(SCOINT  (SINTEGER  S)))> 

( SCOINT 

(LAMBDA  (S> 

(  COND 

((NULL  S> 

ERRL  > 

( ( EO  ( CAR  S  ) 

CO  ) 

(SINTEGER  ( CDR  S  ) )) 

( T  ERRL  )  )  >  > 

(SntMusr 
(LAMBDA  IS) 

(  COND 

((NULL  S) 

ERRL  ) 

(T  < SCOOIMLISTON  (SBLIML1ST  (SID  S  )))>>»  > 

<  SCOOIMLISTON 
•LAMBDA  <S) 

(  COND 


< <  NULL  S) 

S  ) 

ue o  (car  s> 

CO) 

(  SDIMLIST  (  COR  S  >  )  ) 
t  T  S  ) ) )  > 

(SBLIMLIST 
(  LAMBDA  (S) 

(  COND 

(  (  NULL  S) 

ERRL  ) 

((EO  (CAR  S) 

LB) 

(SRB  <  SLIMLIST  (CDR  S>  ))  ) 

<  T  ERRL > ) )  ) 

( SLIMLIST 
(LAMBDA  (S) 

(COND 

< ( NULL  S  ) 

ERRL  ) 

<T  (SCOLIMLISTON  (SLIM  S  > )  )  >  >  > 

(SCOLIMLISTON 
(LAMBDA  (S> 

(COND 

((NULL  S) 

S  ) 

((EG  (CAR  S) 

CO  > 

(SLIMLIST  (CDR  S>>> 

(  T  S  )  )  )  ) 

(SLIM 

(LAMBDA  (S> 

(  CCND 

( ( NULL  S  ) 

ERRL  > 

( ( EO  ( CAR  S  ) 

MI  > 

(SSINT  (SSL  (SINTEGER  (CDR  S>>)>> 
(T  ( SSLS  1 NTON  (SSINT  S)))))> 

( SSL  S I NTON 
(LAMBDA  (S) 

<  COND 

(  ( NULL  S  ) 

S  > 

( ( EO  ( CAR  S ) 

SL  ) 

(SSINT  ( CDR  S ) ) ) 

(  T  S  )  >  >  ) 


?  H 


(  SSL 

(LAMBDA  (S) 

(  CONO 

<  (  NULL  S) 

ERRL  ) 

( <EQ  (CAR  S ) 

SL  > 

(CDR  SIT 
(  T  ETRRL  > )  > ) 

<  DyPROG 

(LAMBDA  <P  PR£D> 

(PROG  (U  V  W  X  ) 

(SETO  U  01 
( SETO  V  ( BUILD  P  >  > 

LOOP( SETO  X  IPEELOFF  U  V  W>> 
(COND 

((NULL  X) 

(RETURN  NIL  )  )  > 

(SETO  U  (CADR  X  II 
(COND 

( <  PRED  (CAR  X)> 

(RETURN  (CAR  X>>>> 

(SETO  U  (CADDR  XII 
(GO  LOOP  > 

)  )  ) 

(  ExP 

(LAMBDA  (P) 

( DEXP  P  )  )  ) 

( DPINTL 1ST 
(LAM80A  (P) 

(DYPROG  P  (FUNCTION  B I NTL I S TP  )  )  )  ) 
(  OEXP 

(LAMBDA  (P) 

(DYPROG  P  (FUNCTION  EXPP  )  )  )  J 

( VARI ABLEP 
(LAMBDA  (S) 

<  NULL  ( SVAR  SI))) 

( IOENTP 

(LAMBDA  (S) 

( NULL  (SID  S  >  >)  ) 

<  RfDLISTP 
(LAMBOA  (S) 

(NULL  ( SB  I DL I  ST  S)))> 

(  I DL I S TP 

(LAMBDA  (S> 

(NULL  (SIDLIST  SUM 
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( OINTLISTP 
(LAMBDA  <$> 

(  NULL  (  SB  l  NTL  I  ST  $)>>> 

< intlistp 

(LAMBDA  <$> 

(NULL  (SINTLIST  S>>)> 

( INTEGERP 
(LAMBDA  (S» 

(NULL  <  S INTEGER  S>))> 

<  stntp 

(1.  AMBDA  <S> 

<  NULL  ( SSJNT  S  >)  >  > 


( 1 MTTRIPLEP 


t LAMBDA 
<  NULL 

(  S  ) 

( SINTTRIPLE  S ) >  > ) 

(  IsiTPAIRP 
( L  AMBDA 
(NULL 

<  S  ) 

<  SINTPAIR 

S  )  )  »  ) 

( rn ml  i s tp 

(LAMBDA 
(  NULL 

(  S  ) 

( SO  1  ML  I  ST 

s  m  > 

( L1ML1STP 
(LAMBDA 
<  NULL 

(S) 

(  SL 1  ML  I  ST 

s  m  > 

<  BINTLIST 
(LAMBDA 
(  COND 

(  P  ) 

( ( LESSP  ( LENGTH  P  ) 

3  ) 

NIL  ) 

< < NOT  (MEM0ERLP  LB  (CAR  P»)) 

NIL  ) 

((NOT  (MEMBERLP  RB  (LASTi  P>>> 

NIL  > 

( T  ( (LAMBDA  ( X  ) 

(  CONO 

((NULL  X) 

NIL  ) 

(T  (CONS  LB  (APPEND  X  (QUOTE  ( RB >)))>)  > 
(  1NTL 1ST  (  INSIDE  P  ))))))  ) 


(LASTi 

(LAMBDA  (P) 

(CAR  (LAST  P  >  > ) ) 
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( memberlp 

(LAMBDA  (X  L» 

(COND 

((NULL  L) 

NIL  ) 

( (EO  X  ( C AAR  L  )  ) 

T  > 

<T  (HEM8ERLP  X  (COR  L)>>>>> 

( iNSIOE 

(LAMBDA  (P> 

( INSIOEl  ( COR  P  ) 

NIL  > ) ) 

( INSIDE1 

(LAMBDA  (P  0) 

(  COND 

( ( NULL  <  CDR  P  )  ) 

(REVERSE  0)) 

( T  ( INSIDEi  <  CDR  P  ) 

(CONS  (CAR  P) 

0  >  >  )  )  )  > 


( intlist 

(LAMBDA  (P) 

<  CONO 

((NULL  P) 

NIL  ) 

<  <  0  J GCOPP  P> 

(INTLISTl  (LIN1LIST  P  NIL>>> 
(T  NIL)))) 

( digcopp 

(LAMBDA  (P) 

(COND 

((NULL  P> 

T  ) 

((NOT  (DIGCOLP  (CAR  P>>> 

NIL  ) 

( T  ( DIGCOPP  ( CDR  P  >  ) )  )  )  ) 

( DIGCCLP 

(LAMBDA  (L) 

(  COND 

( ( NULL  L  ) 

NIL  ) 

( ( DIGCOP  (CAAR  L  )  ) 

T  ) 

( T  ( DIGCOLP  I CDR  L  )  ) )  )  > ) 

( DIGCOP 

(LAMBDA  (X) 

(  COND 

((OR  (EO  X  CO) 


8  1 


t  DIGITP  X  )  ) 

T  ) 

( T  NIL >  > >) 

(LINTLIST 

(LAMBDA  IP  0) 

<  COND 

( I  NULL  P) 

<  reverse:  o  >  > 

< T  <  L  INTL 1ST  ( CDR  P) 

(CONS  CDIGCO  (CAR  P)> 
Q  >  >  )  >  >  ) 


<  OIGCO 

( LAMBDA  <L) 

(  CONO 

( ( DIGITP  (CAAR  L  >  > 
(COMBINE  ( CAR  L  > 

<  COON  ( COR  L  )  )  > ) 

<  (  EQ  ( CAAR  L  > 

CO  ) 

(COMBINE  (CAR  L  ) 

( OIGON  ( COR  L  )  )  >  ) 

<  T  <  DIGCO  ( CDR  L  )  >  > )  >  ) 

( Combine 

(LAMBDA  (X  Y  ) 

<  COND 

((NULL  Y> 

(LIST  X)) 

( T  (LIST  X  Y  J  )>)  ) 


(  COON 

(LAMBDA  (L) 

(  COND 

( <  NULL  L  ) 

NIL  > 

( ( EO  (CAAR  L ) 

CO  ) 

( CAR  L  >  > 

(  T  ( COON  ( CDR  L  >  )  )  )  >  ) 


( D  f  GON 

( LAMBDA  ( L  > 

(COND 

( ( NULL  L  ) 

Nil  > 

( (  DIGITP  ( CAAR  L  >  > 

( CAR  L  )  ) 

<  T  ( D I GON  ( CDR  L  )  )  )  >  )  ) 

( INTLIST1 

'LAMBDA  (P) 

(PROG  (U  V  W) 


82 


(SET Q  U  (PICKDIGIT  (CAR  P>>> 

(CONO 

I  I  NULL  U) 

(RETURN  NIL  > )  ) 

(  COND 

( <  NULL  ( CDR  P ) ) 

(RETURN  (LIST  U>>)> 

(SETO  W  (PICKDIGIT  (LASTl  P>)> 

(  COND 

( ( NULL  W> 

( RETURN  NIL  >  >  > 

(  COND 

( ( LESSP  (LENGTH  P> 

3  > 

(RETURN  (LIST  U  W>>>> 

(SETO  U  (LIST  (LIST  (LIST  U  100)))) 

(SETO  W  (LIST  (LIST  (LIST  W  100)))) 

(SETO  V  (DINTLIST  (APPEND  U  (APPEND  (INSIDE  P) 
%#>>>> 

(CONO 

((NULL  V) 

(RETURN  NIL  )  )  ) 

(RETURN  V) 

)  )  > 

(DINTLIST 

( LAMBDA  (P> 

(OYPROG  P  (FUNCTION  INTLISTP)))) 

(PICKDIGIT 
(LAMBDA  (L) 

(COND 

((NULL  L) 

NIL  l 

UDIGITP  (CAAR  L  )  ) 

(CAAR  L ) ) 

( T  (PICKDIGIT  ( CDR  L  ) ) )  ) ) ) 


( IDENT 

(LAMBDA  (P> 

((LAMBDA  (A) 

(  COND 

((NULL  A) 

NIL  ) 

(iGREATERP  (LENGTH  A) 

«  > 

NIL  ) 

((NULL  (COR  A)) 

( STARTVAP  (CAR  A))) 

( T  ( PROG  ( U  V  ) 

(SETO  U  (STARTVAR  (CAR  A))) 
(COND 

( ( NULL  U  > 

( RETURN  NIL  )  )  ) 


hj 


(  SETQ  V  (  REST  VAR  (COP  A) 
NIL  >  > 

I  COND 

((NULL  V) 

(RETURN  NIL  >>> 
(RETURN  (APPEND  U  V>> 

>  >  >  > 

(ALT  P>>)> 

( STARTVAR 
( LAMBDA  C  K  > 

(  CCND 

( <  NULL  K  > 

NIL  > 

( (LETTERP  ( CAR  K  > ) 

(LIST  (CAR  K>>) 

(  T  (  STARTVAR  (  CDR  KM)))) 

<  RESTVAR 

(LAMBDA  (A  8) 

(  COND 

((NULL  A) 

(REVERSE  8)> 

(T  ((LAMBDA  (Y> 

(COND 

( ( NULL  V ) 

NIL  ) 

(T  (RESTVAR  (CDR  A) 

( CONS  V  B  >  )  )  )  ) 

(RESTVAR1  (CAR  A))))))) 

( RFSTVARi 

(LAMBDA  (K) 

(  COND 

( ( NULL  K  ) 

NIL  ) 

( ( ANP  ( CAR  K  )  ) 

( CAR  K  )  ) 

( T  ( RESTVARi  (CDR  K  )  )  >  )  )  ) 


(  VAR 

(LAMBDA  (P) 

(  IDENT  P  )  )  ) 

) 

(PRINT  ( OUOTE  F032A  ) ) 

(  S  P"  T  QO  F032A  (SPACE  CLPSP  NEL  MATCH2  MATCH  GM  STYPE  ST  NIJMVAL 
ALTi  ALT  NUM2  NUM3  NUMi  UGOl  NMTCH  MEM2  UGO  UGOTO  UGOX  ALLNUMP 
HEAD  HE  A  D 1  TAIL  NUMEM  UPAUSE  UASGT  UCGT  UCP-T?  DESPACE  UIES  UIFL 
UIFS1  U I F  UDO  U001  ERONTDO  BACKDO  RAC«001  RAC*P02  (JAS  UASSIGN 
UASSIGNi  UFN  UENl  UCALL  UCALLl.  UCALL2  USBRTN  USBRTN1  USBRTN? 

UCOM  UDIM  U ACC  UPNCH  (iPNTP  uREAD  UTYPE  uACCTP  llPRNT  GEMO  uEE 
URWND  UBSP  INIT  INIT1  DECM0D2  DECM0D21  PMLAB  SEG  EXPH5  OP  EXPH3 
EXPHA  E  XPH4 1  EXPH2  DBD  EXPH  EXPHi  LETTERP  DIGITP  SPECIALP  ANP 
SIr.NP  FXPP  FXPLP  SEXPL  SCOEXPLON  SFXP  SUEXP  SSFXPON  STERM  SFACTOR 


HI 


SPRlMARY  SVFON  SBEXP  SBEXPL  SRB  SFONTERM  SEONFACTOR  SCQNST  ANT 
SPREFIX  SPREOOT  SINTEGERON  SINDOTON  SEON  SSINT  SVAR  SID  SANON 
SBEXPLON  SB  I  DL  I  ST  SIDLIST  SCOIDL1STON  S3  I  NTL  1ST  SINTLIST  SCOINTLISTON 
SINTEGERL  SINTEGER  $  INTTR ! PLE  SCOIHTPAIR  S1N7PAIR  SCOINT  SDIMLIST 
SCODlHtJSTON  SBUMLIST  SUHLIST  SCOLIMLISTON  SLIH  SSLSINTON 
SSL  DYPROG  EXP  DBINTLIST  DEXP  VAR  I ABLEP  IDENTP  BIDL1STP  1DLISTP 
BIMTLISTP  INTLlSTP  INTEGERP  SIN7P  1NTTRIPLEP  INTPAIRP  DIHLlSTP 
LIHLISTP  eiNTLJST  LASTi  MEMBERLP  INSIDE  iNSIDEi  INTLIST  DIGCOPP 
OIGCOLP  DIGCOP  LINTLIST  DIGCO  COMBINE  COON  DIGON  INTLISTl  DINTLlST 
PICKDIGIT  IDENT  STARTVAR  RESTVAR  REST VAR1  VAR)) 

(PRINT  (OUOTE  VQ32A)) 

(SETQQ  V032A  <H  HE  HI  H2  H3  T  0  SP  LB  ES  AS  SL  PL  MI  PE  CO  DS 
R8  ERRI.  LETTERLIST  DfGITLIST  SPEC  I  ALL  I  S  T  )  ) 

( SETOG  H  40  ) 

( SETOO  HE  6  ) 

(SeTOG  Hi  30) 

(SeTOO  H?  30) 

(SETOO  H3  40) 

(SETOO  T  T) 

(SETOO  0  0) 

( SETOO  SP  SP  ) 

<  SeTOO  LB  LB  ) 

( SfTOO  ES  ES  ) 

(SETOO  AS  AS) 

( SETOO  SL  SL  ) 

(SETOO  PL  PL) 

( SFTOO  MI  MI  ) 

( SETQQ  PE  PE  » 

(SETOO  CO  CO) 

(SETQQ  OS  OS) 

(SFTQQ  RB  RB) 

(SETOO  ERRL  (ERR)) 

(SETOO  LETTERLIST  (ABCOEFGH  I  JKLMNOPQRS  TU 
V  V  X  Y  Z  )  ) 

(SETOO  DIGITLIST  (012345673  9)) 

(SETOO  SPEC  I  ALL  1ST  (LB  ES  AS  SL  PL  MI  PE  CO  OS  RB  )  ) 
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CPRJNI  IOUOTE  THIS<  FILE  WAS  CREATED  ON  <>> 
<  PRINT  IOUOTE  6-JUNE-1967 »  ) 

(  DEFINED 


(  BUILD 

(LAMBDA  (ARP) 

< ( LAMBDA  <U> 

( CONS  (  ORDERED  ( CAR  U>) 

< CDR  U>>> 

(BUtLOi  ARR  (CAR  ARP) 

NIL 

NIL 

NIL  >  >  >  ) 

( BuILDl 

(LAMBDA  (APR  CARR  ANS  CANSW1  CANSW2  ) 
(  COND 

((NULL  CARR) 

<  COND 

((NULL  (CDR  ARR)) 

( CONS  C ANS  W 2  ANS  >  ) 

( <  NULL  ANS  ) 

( BUILD1  (CDR  ARR) 

(CADR  ARR) 

(LIST  CANSW2) 

CANSW2 
NIL  )  ) 

(T  (9UILD1  (CDR  ARR) 

(CADR  ARR) 

(CONS  CANSW2  ANS) 

CANSW2 
NIL  )  )  )  ) 

(T  (BUIL01  ARR  (CDR  CARR) 

ANS 

CANSWi 

(ADDON  (CAAR  CARR) 

(CADAR  CARR) 

CANSWi 

CANSWI 

CANSW2  ))>))) 

<  ADDON 

( LAMBDA  (I  A  B  C  D  ) 

<  COND 

((NULL  9  ) 

( PUTIN  A  < CONS  !  0  ) 

D  )  ) 

((NULL  C> 

0  ) 

<  T  ( ADDON  1  A  9  ( CDR  C  ) 

( PUTIN  ( PLUS  A  (CAAR  C  )  ) 

(  CONS  I  (CAAR  0  5 
U  )  )  )  )  )  ) 
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<  Putin 

(LAMBDA  (VAL  PAIR  OLD) 

(CONC 

((NULL  OLD) 

(LIST  (LIST  VAL  PAIR))) 

( <  EQUAL  (CAAR  OLD) 

VAL  ) 

(CONS  (APPEND  (LIST  VAL  PAIR) 

( CDAR  OLD)) 

(CDR  OLD))) 

( T  ( CONS  ( CAR  OLD  ) 

(PUTIN  VAL  PAIR  (CDR  OLD))))))) 


( OROERED 

(LAMBDA  (A) 

(  CONO 

((NULL  (CDR  A  )  ) 

A  ) 

(T  ((LAMBDA  (U> 

(CONS  U  (ORDERED  (DELETE  U  A>>>> 
(LARGEST  (CAR  A) 

( CDR  A  >,))>>  ) 


(LARGEST 

(LAMBDA  (C  D) 

(  COND 

((NULL  D) 

C  > 

( (LESSP  <  CAR  C  ) 

( CAAR  D  ) ) 

(LARGEST  (CAR  D) 

( CDR  D  >  >  ) 

(T  (LARGEST  C  (CDR  D>>>>)> 

( delete 

( LAMBDA  ( ELEM  L  ISTA  ) 

(COND 

( ( NULL  L  ISTA  > 

NIL  ) 

( ( EQUAL  ELEM  (CAR  L1STA  >  ) 

(CDR  LISTa  )  > 

I T  (CONS  (CAR  LISTA) 

(DELETE  ELEM  (CDR  LISTA))))))) 


( PEELOFF 

(LAMBDA  (OLOVAL  ANS  OTHERS) 
(  COND 

((NULL  (CAR  ANS)) 

NIL  ) 

( ( ZEROP  OLDVAL  > 

(DOWNi  (NXT  ANS) 
(CAAAR  ANS) 

(CDR  ANS) 

2 
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«  r  t  X  0  OTHERS  ANS  i  (CAAAR  ANS  >  > 

(LIST  <  CHO  ANS  )  )  >  ) 

<  (  GREATER?  (CAAAR  ANS) 

OLDVAL  ) 

(BEELOFE  OLDVAL  ( CONS  ( CDAR  ANS  > 

( COR  ANS ) » 

OTHERS  >  ) 

((NULL  OTHERS) 

*  REEL  Off  0  (CONS  (CDAR  ANS ) 

( COR  ANS ) ) 

OTHERS  )  > 

( «  NOT  ( BELONG  i  OTHERS  >  > 

<  DOWN1  ( NX  T  ANS) 

OLOVAL 
<  CDR  ANS) 

2 

(EJXO  OTHERS  ANS  i  ( CA AAR  ANS > > 

(LIST  (CHO  ANS)))) 

M  (  CHOOSE  1  OLDVAL  1  (Cf)AAR  ANS  >  )  >  >  )  ) 

(  CHOOSE  1 

f LAMBDA  (NEWVAL  CVR  CHOICES) 

(  CONC 

( ( EQUAL  ( OAAOAR  OTHERS ) 
i ) 

<  COND 

((EQUAL  (CDADAR  OTHERS) 

CTR  > 

<  COND 

( ( NULL  ( COR  CHOICES  )  > 

(  PE ELDER  0  (CONS  (  CDAW  AnS  ) 

(COR  ANS)) 

NIL  )  ! 

(T  (DOWN!  (CDADR  CHOICES) 

NEWVAL 
!  CDR  AN1-'  > 

2 

( r  t  x i  ctr  i ) 

(LIST  (CAADR  CHOICES >*)>)) 

(T  (  CHOOSE  1  NEWVAL  <  A  DD 1  CTR) 

( COR  CHOICES ) > ) > ) 

<  T  ( DOWN  1  (OPR  (FIND  1  CHOICES  OTHERS  1)) 

NEWVAL 
(COR  ANSI 
2 

OTHERS 

(LIST  (CAR  (FIND  1  CHOI  CIS  OTHERS  1)))) 

(  choose 

ILANPDA  <LVl  CTR  CHOICE) 

(  COND 

((EQUAL  (CAADAR  ; :  T  M  F  P  S  ) 

L  VL  ) 

(  COHO 


Sf< 


) ) 


( ( EQUAL  ( CDAOAR  OTHERS  ) 

CTR  > 

(  COMO 

< <  NULL  ( CDR  CHOICE  )  ) 

(BACKUP  LVL  OTHERS  ANSI  (REVERSE  NL1ST) 
NIL  )  ) 

•T  (DOWNi  (CDADR  CHOICE) 

NEWVAL 
C  COR  ANSI  ) 

(ADDi  LVL> 

( F!Xi  CTR  LVL  ) 

(CONS  (CAADR  CHOICE) 

NL 1ST  )  )  )  >  > 

<  T  (CHOOSE  LVL  <  ADDA  CTR  > 

(  CDR  CHOICE  >  )  )  )  ) 

<T  (DOWNi  (CDR  (FIND  LVL  CHOICE  OTHERS  1)) 

NEWVAL 
(  CDR  ANSI  ) 

(ADDI  LVL) 

OTHERS 

(CONS  (CAR  (FIND  LVL  CHOICE  OTHERS  i)> 

NLIST  >  >  >>)  > 


(FI  VI 

( L AMROA  (A  8  ) 

(CONS  (LIST  (CAAR  OTHERS) 
( CONS  B  ( ADDI  A  >  )  ) 

( CDR  OTHERS  »  )  >  ) 


(  F  I  VO 

(LAMBDA  (OTHERS  ABC) 

<  CQND 

( ( NULL  ( CDDAAR  A  )  > 

OTHERS  ) 

( T  (CONS  (LIST  C  (CONS  B  1  )) 
OTHERS  )  )  )  )  ) 


(FIND 

(LAMBDA  ( LVL  ABC) 

(  CONO 

( <  EQUAL  LVL  (CAADAR  B  )  ) 

(  COND 

( ( EQUAL  C  ( CDAOAR  B ) ) 
( CAR  A ) ) 

<  T  (FIND  LVL  <  CDR  A ) 

3 

(ADDi  C  ?  )  )  ) ) 

( T  (FIND  LVL  A  ( CDR  0 ) 

C  )  >  >  )  ) 


(  ChO 

( L  AMROA  (  X  ) 

<  CAAR  ( CDAAR  X  )  )  )  ) 


HO 


<  N*T 

(LAM80A  (X) 

(  CDAR  ( CD  A  A  R  X  )>  )  > 

<  DOWN! 

(LAMBDA  (LEVEL  NEWVAL  ANSI  I  OTHERS  NLIST) 

(  COND 

<<2ER0P  LEVEL) 

(LIST  NLIST  NEWVAL  CfHERS)) 

((NOT  (EQUAL  (CAAAR  ANSI) 

LEVEL >  > 

(DOWNi  LEVEL  NEWVJL  (CONS  (  CDAR  ANSI) 

(C DR  ANSI  )  ) 

I 

OTHERS 
NLIST  )  ) 

((NOT  (BELONG  !  OTHERS)) 

(DOWNI  ( NXT  ANSI) 

NEWVAL 
( CDR  ANSI) 

(ADDl  I) 

(  E I  X  0  OTHERS  ANSI  I  LEVEL) 

(CONS  (CHO  ANSI) 

NLIST  )  )) 

(T  (CHOOSE  1  i  ( COAAR  ANSI)))))) 

<  BACKUP 

(LAMBDA  (COUNT  OTHERS?  ANSW2  NLIS1B  NLISTA) 

(  CONO 

((OR  (NULL  OTHERS2) 

(NULl  ANSW2  )  ) 

(  COND 

< ( COAR  ANS ) 

(PEELOEE  0  (CONS  ( COAR  ANS » 

(CDR  ANS)) 

NIL  >  ) 

( t  nil  )  n 

((EQUAL  COUNT  (CAAOAR  OTHERS?)) 

(  COND 

<  ( EQUAL  ( CA AR  0THERS2  > 

<  CA AAR  A N SW ?  )  ) 

( RIGHT  SPOT  (FINONXT  ( CD A  AR  ANSW?) 
i 

OTHERS?  )  )  ) 

(T  (BACKUP  COUNT  OTHERS?  (CONS  (CDAR  ANSW2  ) 
(COR  AnSW2>) 

NL I  STB 
NLISTA  )  )  )  ) 

(  ( NULL  NL I STR  ) 

{ BACKUP  (  A  DO i  COUNT  ) 

OTHERS? 

(COR  ANSW2) 

NIL 

NLISTA  )  ) 
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<  T  <  BACKUP  <  AOOi  COUNT  > 

0TWERS2 
(COP  ANSN2) 

(CDR  NLISTB) 

( CONS  (CAR  NLISTB) 

NLISTA  >)>>>  > 

( rightspot 

(  L  AM80 A  (U) 

(  COND 

(U  ' DOWN i  (  CDR  U ) 

NtWVAL 
(CDR  ANSW2) 

( AODi  COUNT) 

(CONS  (LIST  (CAAR  OTHERS2 ) 

(CONS  COUNT  (ADD!  ( CDADAR  OTHERS2  ) )  )  ) 
(CDR  0THERS2 ) > 

(CONS  (CAR  U) 

( CDR  NL 1STA )  ) ) ) 

((AND  NLISTA  (CDR  NL I  ST  A )  ) 

(BACKUP  1  (CDR  0THERS2  > 

ANS 

(CDR  (REVERSE  (CDR  NLISTA))) 

(LIST  (CAR  (REVERSE  NLISTA))))) 

(NLISTA  (BACKUP  1  (CDR  0THERS2 > 

ANS 
NIL 
NIL  )  > 

(NLISTB  (BACKUP  1  (CDR  QTMERS2  ) 

ANS 

(CDR  NI.ISTB) 

(LIST  (CAR  NLISTB)) >> 

( T  NIL  ) )  >  > 

( f I NDNX  T 

(LAMBDA  (LISTE  CTR  OTHS) 

(  COND 

((NULL  LISTE) 

NIL  ) 

((EQUAL  CTR  (CDADAR  OTHS>> 

(  COND 

( (NULL  (CDR  LISTE  )  ) 

NIL  ) 

( T  <  CADR  LISTE  )  )  )  ) 

< ( NULL  ( CDR  LISTE  >  ) 

NIL  ) 

( T  ( FINDNXT  ( CDR  LISTE  ) 

(ADD!  CTR) 

OTHS  )  )  >  )  ) 

( BELONG 

(LAMBDA  ( EL  LISTE  > 

(  COND 

( ( NULL  L ISTE  ) 


NIL  > 

(  t  EOUAL  PL  (CAADfiR  LIST£>> 

T  ) 

( (NULL  ( COR  LISTE  )  > 

NIL  ) 

<  T  (8LLONG  CL  (CGR  L1STE>>>>>’< 

<  STE2 

(LAMBDA  NIL 

(ST  £2  )  >  > 

(  STE3 

(LAMBDA  NIL 
(ST  £3  > ) > 

(  STE4 

(LAMBOA  NIL 
(ST  £4  > ) > 

(  STCS 

(LAMBDA  NIL 
(ST  E5>)> 

(  STEM 

(LAMBDA  NIL 
(ST  EM  >  >  > 

( STCDO 

(LAMBDA  NIL 
( ST  COO  >  )  > 

<  STEDl 

(LAMBDA  NIL 
( ST  EDI  )  )  > 

( STC02 

(LAMBDA  ML 
(ST  ED2 ) > ) 

( STC03 

(LAMBDA  NR 
( ST  £03  )  I  ) 

) 

(print  (Quote  Fia32B>> 

(SFTOO  F i 032B  (BUILD  BUILD1  ADDON  PUTIN  ORDERED  LARGEST  DELETE 

PEELOFF  CHOOSE 1  CHOOSE  EIX1  FJXQ  FIND  CHO  NXT  DOWNi  BACKUP  MGHTSPOT 

FINDNXT  BELONG  SfE2  S  TE  3  5  T  E  4  SIE5  STEM  STEDO  STEDl  STED?  STED3)) 
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